Don't add secret key-id's to encryption recipients.
authorueno <ueno>
Thu, 13 Apr 2006 08:52:59 +0000 (08:52 +0000)
committerueno <ueno>
Thu, 13 Apr 2006 08:52:59 +0000 (08:52 +0000)
epa.el

diff --git a/epa.el b/epa.el
index 36e6f8f..73b867e 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -265,8 +265,9 @@ All normal editing commands are turned off."
      (goto-char (point-min))
      (let (plain recipients)
        (while (re-search-forward "^\\*" nil t)
-        (setq recipients (cons (get-text-property (point) 'epa-key-id)
-                               recipients)))
+        (unless (get-text-property (point) 'epa-key-secret)
+          (setq recipients (cons (get-text-property (point) 'epa-key-id)
+                                 recipients))))
        (list (setq plain (expand-file-name (read-file-name "Plain file: ")))
             (expand-file-name
              (read-file-name (format "Cipher file (default %s.gpg) "