Simplified.

diff --git a/epa.el b/epa.el
index 8036040..1ac41df 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -759,11 +759,9 @@ If no one is selected, default secret key is used.  "
                          nil t)
         (catch 'done
           (while t
-            (message "Signature type (N,c,d,?) ")
+            (message "Signature type (n,c,d,?) ")
             (let ((c (read-char)))
-              (cond ((or (eq c ?n) (eq c ?\n))
-                     (throw 'done nil))
-                    ((eq c ?c)
+              (cond ((eq c ?c)
                      (throw 'done 'clear))
                     ((eq c ?d)
                      (throw 'done 'detached))
@@ -776,7 +774,9 @@ n - Create a normal signature
 c - Create a cleartext signature
 d - Create a detached signature
 ? - Show this help
-"))))))))))
+"))))
+                    (t
+                     (throw 'done nil))))))))
   (save-excursion
     (let ((context (epg-make-context))
          signature)