(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))