emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(default): don't default to disabled/expired pgp keys

Browse source 
And don't use the short ID (see evil32.com).

Ref: https://evil32.com/
This commit is contained in:
Henrik Lissner 2022-02-12 03:52:55 +01:00
parent 629e93b861
commit dcae28c83a
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
modules/config/default/config.el
View file

@ -35,13 +35,18 @@
;; With GPG 2.1+, this forces gpg-agent to use the Emacs minibuffer to prompt ;; With GPG 2.1+, this forces gpg-agent to use the Emacs minibuffer to prompt
;; for the key passphrase. ;; for the key passphrase.
(set 'epg-pinentry-mode 'loopback) (set 'epg-pinentry-mode 'loopback)
;; Default to the first secret key available in your keyring. ;; Default to the first enabled and non-expired key in your keyring.
(setq-default (setq-default
epa-file-encrypt-to epa-file-encrypt-to
(or (default-value 'epa-file-encrypt-to) (or (default-value 'epa-file-encrypt-to)
(unless (string-empty-p user-full-name) (unless (string-empty-p user-full-name)
(cl-loop for key in (ignore-errors (epg-list-keys (epg-make-context) user-full-name)) (cl-loop with context = (epg-make-context)
collect (epg-sub-key-id (car (epg-key-sub-key-list key))))) for key in (ignore-errors (epg-list-keys context user-full-name 'public))
for subkey = (car (epg-key-sub-key-list key))
if (not (memq 'disabled (epg-sub-key-capability subkey)))
if (< (or (epg-sub-key-expiration-time subkey) 0)
(time-to-seconds))
collect (epg-sub-key-fingerprint subkey)))
user-mail-address)) user-mail-address))
;; And suppress prompts if epa-file-encrypt-to has a default value (without ;; And suppress prompts if epa-file-encrypt-to has a default value (without
;; overwriting file-local values). ;; overwriting file-local values).