(let ((args (append (if epg-gpg-home-directory
(list "--homedir" epg-gpg-home-directory))
'("--with-colons" "--no-greeting" "--batch"
- "--with-fingerprint"
- "--with-fingerprint")
+ "--with-fingerprint" "--with-fingerprint")
(unless (eq (epg-context-protocol context) 'CMS)
'("--fixed-list-mode"))))
(list-keys-option (if (memq mode '(t secret))
(unless (listp name)
(setq name (list name)))
(while name
- (setq args (nconc args (list list-keys-option (car name)))
+ (setq args (append args (list list-keys-option (car name)))
name (cdr name)))
(with-temp-buffer
(apply #'call-process