[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a4d57ad: Make the epa key display slightly more informative
From: |
Lars Ingebrigtsen |
Subject: |
master a4d57ad: Make the epa key display slightly more informative |
Date: |
Wed, 26 Aug 2020 07:23:06 -0400 (EDT) |
branch: master
commit a4d57add69fd2077bd21ce917ea8ca3b22621ec0
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Make the epa key display slightly more informative
* lisp/epa.el (epa--button-key-text): Say what the validity
characters output by GPG mean (bug#34726).
---
lisp/epa.el | 35 ++++++++++++++++++++---------------
1 file changed, 20 insertions(+), 15 deletions(-)
diff --git a/lisp/epa.el b/lisp/epa.el
index 3c80436..b065887 100644
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -255,18 +255,25 @@ You should bind this variable with `let', but do not set
it globally.")
(validity (epg-sub-key-validity (car (epg-key-sub-key-list key)))))
(propertize
(concat
- (format "%c "
- (if (epg-sub-key-validity primary-sub-key)
- (car (rassq (epg-sub-key-validity primary-sub-key)
- epg-key-validity-alist))
- ? ))
- (epg-sub-key-id primary-sub-key)
- " "
- (if primary-user-id
- (if (stringp (epg-user-id-string primary-user-id))
- (epg-user-id-string primary-user-id)
- (epg-decode-dn (epg-user-id-string primary-user-id)))
- ""))
+ (propertize
+ (format "%c "
+ (if (epg-sub-key-validity primary-sub-key)
+ (car (rassq (epg-sub-key-validity primary-sub-key)
+ epg-key-validity-alist))
+ ? ))
+ 'help-echo (format "Validity: %s"
+ (epg-sub-key-validity primary-sub-key)))
+ (propertize
+ (concat
+ (epg-sub-key-id primary-sub-key)
+ " "
+ (if primary-user-id
+ (if (stringp (epg-user-id-string primary-user-id))
+ (epg-user-id-string primary-user-id)
+ (epg-decode-dn (epg-user-id-string primary-user-id)))
+ ""))
+ 'help-echo (format "Show %s"
+ (epg-sub-key-id (car (epg-key-sub-key-list key))))))
'face
(if validity
(cdr (assq validity epa-validity-face-alist))
@@ -334,9 +341,7 @@ If ARG is non-nil, mark the key."
(insert
(propertize
(concat " " (epa--button-key-text key))
- 'epa-key key
- 'help-echo (format "Show %s"
- (epg-sub-key-id (car (epg-key-sub-key-list key))))))
+ 'epa-key key))
(insert "\n")))
(defun epa--list-keys (name secret &optional doc)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master a4d57ad: Make the epa key display slightly more informative,
Lars Ingebrigtsen <=