From 36ea9cba97ee1214fba7f1f0b7176227f334ac16 Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 13 Apr 2006 08:52:59 +0000 Subject: [PATCH] Don't add secret key-id's to encryption recipients. --- epa.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) " -- 1.7.10.4