From 862ad9e460d731ea7c306748541165b8d96b8a3a Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Wed, 26 Apr 2006 09:00:56 +0000
Subject: [PATCH] Allow to list key signatures.

---
 epa.el |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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))))
-- 
1.7.10.4