From: ueno <ueno>
Date: Sun, 31 Dec 2006 11:52:23 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: epg-0_0_10~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4d4620ddc9e56e24fb43163d952142970be9648e;p=elisp%2Fepg.git

Fixed.
---

diff --git a/epa.el b/epa.el
index 9a49f02..a3104c7 100644
--- a/epa.el
+++ b/epa.el
@@ -984,7 +984,7 @@ If no one is selected, default secret key is used.  "
 
 Don't use this command in Lisp programs!"
   (interactive
-   (let ((sign (if current-prefix-arg (y-or-n-p "Sign? ")))
+   (let ((verbose current-prefix-arg)
 	 (context (epg-make-context epa-protocol))
 	 sign)
      (setq epa-last-coding-system-specified
@@ -995,7 +995,7 @@ Don't use this command in Lisp programs!"
 	   (epa-select-keys context
 			    "Select recipients for encryption.
 If no one is selected, symmetric encryption will be performed.  ")
-	   sign
+	   (setq sign (if verbose (y-or-n-p "Sign? ")))
 	   (if sign
 	       (epa-select-keys context
 				"Select keys for signing.  ")))))
@@ -1041,10 +1041,9 @@ If no one is selected, symmetric encryption will be performed.  ")
 Don't use this command in Lisp programs!"
   (interactive
    (save-excursion
-     (let* ((verbose current-prefix-arg)
-	    (sign (if verbose (y-or-n-p "Sign? ")))
-	    (context (epg-make-context epa-protocol))
-	    recipients)
+     (let ((verbose current-prefix-arg)
+	   (context (epg-make-context epa-protocol))
+	   recipients)
        (goto-char (point-min))
        (when (epa--mail-mode-p)
 	 (save-restriction
@@ -1084,7 +1083,7 @@ If no one is selected, symmetric encryption will be performed.  "
 				    (epg-make-context epa-protocol)
 				    (concat "<" recipient ">")))
 				 recipients)))))
-	     sign
+	     (setq sign (if current-prefix-arg (y-or-n-p "Sign? ")))
 	     (if sign
 		 (epa-select-keys context
 				  "Select keys for signing.  "))))))