From 348ae6004197bfdda90b83d949dcc3f732d65ccf Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 13 Apr 2006 08:29:50 +0000 Subject: [PATCH] Fixed. --- epg.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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) -- 1.7.10.4