Fixed.

diff --git a/epg.el b/epg.el
index a775f54..7645563 100644 (file)
--- 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)