Allow to list key signatures.

diff --git a/epa.el b/epa.el
index 3a2c3ae..18242b3 100644 (file)
--- a/epa.el
+++ b/epa.el
@@ -254,7 +254,9 @@
                                (if epa-list-keys-arguments
                                    (car epa-list-keys-arguments)))))
         (list (if (equal name "") nil name)
-              (y-or-n-p "Secret keys? ")
+              (or (y-or-n-p "Secret keys? ")
+                  (if (y-or-n-p "Key signatures? ")
+                      'signatures))
               (intern (completing-read "Protocol? "
                                        '(("OpenPGP") ("CMS"))
                                        nil t))))