Fixed.

[elisp/epg.git] / epa.el

diff --git a/epa.el b/epa.el
index 9a49f02..a3104c7 100644 (file)
--- 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.  "))))))