(if epa-list-keys-arguments
(car epa-list-keys-arguments)))))
(list (if (equal name "") nil name)
- (or (y-or-n-p "Secret keys? ")
- (if (y-or-n-p "Key signatures? ")
- 'signatures))
+ (y-or-n-p "Secret keys? ")
(intern (completing-read "Protocol? "
'(("OpenPGP") ("CMS"))
nil t))))