From: ueno <ueno>
Date: Thu, 13 Apr 2006 08:29:50 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: epgsm-branchpoint~87
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=348ae6004197bfdda90b83d949dcc3f732d65ccf;p=elisp%2Fepg.git

Fixed.
---

diff --git a/epg.el b/epg.el
index a775f54..7645563 100644
--- a/epg.el
+++ b/epg.el
@@ -584,7 +584,7 @@ This function is for internal use only."
 
 (defun epg-configuration ()
   "Return a list of internal configuration parameters of `epg-gpg-program'."
-  (let (configuration type)
+  (let (config type)
     (with-temp-buffer
       (apply #'call-process epg-gpg-program nil (list t nil) nil
 	     '("--with-colons" "--list-config"))
@@ -604,10 +604,10 @@ This function is for internal use only."
 
 (defun epg-list-keys (name &optional secret)
   "List keys associated with STRING."
-  (let ((args (list "--with-colons" "--no-greeting" "--batch"
-		    "--fixed-list-mode"
-		    (if secret "--list-secret-keys" "--list-keys")
-		    name))
+  (let ((args (append (list "--with-colons" "--no-greeting" "--batch"
+			    "--fixed-list-mode"
+			    (if secret "--list-secret-keys" "--list-keys"))
+		      (if name (list name))))
 	keys type symbol pointer)
     (with-temp-buffer
       (apply #'call-process epg-gpg-program nil (list t nil) nil args)