From: ueno <ueno>
Date: Sat, 24 Mar 2007 09:18:13 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: epg-0_0_11~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;ds=sidebyside;h=a66194c04f2d46385d78a7f651773365321c339f;hp=b82f5afe5145e01b7bd40868a622d8dc655edd41;p=elisp%2Fepg.git

Fixed.
---

diff --git a/epg.el b/epg.el
index 6b8e703..7993b48 100644
--- a/epg.el
+++ b/epg.el
@@ -1673,11 +1673,14 @@ This function is for internal use only."
 			      "--list-sigs")))
 	(coding-system-for-read 'binary)
 	keys string field index)
-    (unless (listp name)
-      (setq name (list name)))
-    (while name
-      (setq args (append args (list list-keys-option (car name)))
-	    name (cdr name)))
+    (if name
+	(progn
+	  (unless (listp name)
+	    (setq name (list name)))
+	  (while name
+	    (setq args (append args (list list-keys-option (car name)))
+		  name (cdr name))))
+      (setq args (append args (list list-keys-option))))
     (with-temp-buffer
       (apply #'call-process
 	     (if (eq (epg-context-protocol context) 'CMS)