From a66194c04f2d46385d78a7f651773365321c339f Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 24 Mar 2007 09:18:13 +0000 Subject: [PATCH] Fixed. --- epg.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) 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) -- 1.7.10.4