(format "Protocol? (default %S) " epa-protocol)
'(("OpenPGP") ("CMS"))
nil t nil nil (symbol-name epa-protocol)))))
- (or epa-list-keys-arguments (list nil nil nil))))
+ (or epa-list-keys-arguments (list nil nil epa-protocol))))
(unless (and epa-keys-buffer
(buffer-live-p epa-keys-buffer))
(setq epa-keys-buffer (generate-new-buffer "*Keys*")))