From: ueno <ueno>
Date: Thu, 13 Apr 2006 08:52:59 +0000 (+0000)
Subject: Don't add secret key-id's to encryption recipients.
X-Git-Tag: epgsm-branchpoint~84
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=36ea9cba97ee1214fba7f1f0b7176227f334ac16;p=elisp%2Fepg.git

Don't add secret key-id's to encryption recipients.
---

diff --git a/epa.el b/epa.el
index 36e6f8f..73b867e 100644
--- 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) "