debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Prefer email address over User ID when showing valid signature

Browse source 
Most concrete verification steps are likely only taken on the e-mail
address in the first place, and e-mail addresses render more
intelligibly than arbitrary User IDs in the first place.

Signed-off-by: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Amended-by: db, apply dme restructuring suggestions.
This commit is contained in:
Daniel Kahn Gillmor 2021-05-26 21:44:59 -04:00 committed by David Bremner
parent 8c29a5da09
commit 29d43b7f44
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
emacs/notmuch-crypto.el
View file

@ -119,14 +119,14 @@ mode."
(cond
((string= status "good")
(let ((fingerprint (concat "0x" (plist-get sigstatus :fingerprint)))
(userid (plist-get sigstatus :userid)))
;; If userid is present it has full or greater validity.
(if userid
(progn
(setq label (concat "Good signature by: " userid))
(setq face 'notmuch-crypto-signature-good))
(email-or-userid (or (plist-get sigstatus :email)
(plist-get sigstatus :userid))))
;; If email or userid are present, they have full or greater validity.
(setq label (concat "Good signature by key: " fingerprint))
(setq face 'notmuch-crypto-signature-good-key))
(setq face 'notmuch-crypto-signature-good-key)
(when email-or-userid
(setq label (concat "Good signature by: " email-or-user-id))
(setq face 'notmuch-crypto-signature-good))
(setq button-action 'notmuch-crypto-sigstatus-good-callback)
(setq help-msg (concat "Click to list key ID 0x" fingerprint "."))))
((string= status "error")