Don't error when no gpg keys exist

This commit is contained in:
Henrik Lissner 2018-09-25 10:29:57 -04:00
parent 0c70d1bf08
commit 271e7689ae
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -24,7 +24,7 @@
(or epa-file-encrypt-to
;; Collect all public key IDs with your username
(unless (string-empty-p user-full-name)
(cl-loop for key in (epg-list-keys (epg-make-context) user-full-name)
(cl-loop for key in (ignore-errors (epg-list-keys (epg-make-context) user-full-name))
collect (epg-sub-key-id (car (epg-key-sub-key-list key)))))
user-mail-address)
;; With GPG 2.1, this forces gpg-agent to use the Emacs minibuffer to