From: ueno <ueno>
Date: Wed, 26 Apr 2006 09:00:56 +0000 (+0000)
Subject: Allow to list key signatures.
X-Git-Tag: epg-0_0_1~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=862ad9e460d731ea7c306748541165b8d96b8a3a;p=elisp%2Fepg.git

Allow to list key signatures.
---

diff --git a/epa.el b/epa.el
index 3a2c3ae..18242b3 100644
--- 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))))