From 710dfe6c8493ad026a113f4366e2a50ab993a62c Mon Sep 17 00:00:00 2001 From: ueno Date: Fri, 29 Sep 2006 10:02:09 +0000 Subject: [PATCH] Fixed. --- mime-edit.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/mime-edit.el b/mime-edit.el index b0ef7c0..289b405 100644 --- a/mime-edit.el +++ b/mime-edit.el @@ -1791,16 +1791,6 @@ Content-Description: OpenPGP Digital Signature (list recipient))) (delete "" (split-string recipients "[ \f\t\n\r\v,]+"))))) - (if mime-edit-pgp-verbose - (setq recipients - (epa-select-keys context "\ -Select recipients for encryption. -If no one is selected, symmetric encryption will be performed. " - recipients)) - (setq recipients - (delq nil (mapcar (lambda (name) - (car (epg-list-keys context name))) - recipients)))) (narrow-to-region beg end) (let* ((ret (mime-edit-translate-region beg end boundary)) @@ -1817,7 +1807,16 @@ If no one is selected, symmetric encryption will be performed. " (insert "\n") (mime-encode-header-in-buffer) (epg-context-set-armor context t) - + (if mime-edit-pgp-verbose + (setq recipients + (epa-select-keys context "\ +Select recipients for encryption. +If no one is selected, symmetric encryption will be performed. " + recipients)) + (setq recipients + (delq nil (mapcar (lambda (name) + (car (epg-list-keys context name))) + recipients)))) (condition-case error (setq cipher (epg-encrypt-string -- 1.7.10.4