mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-21 18:23:59 +00:00
Code Issues Releases Activity

[Backport] lisp/gnus/mml2015.el (mml2015-display-key-image): New variable

Browse Source
This commit is contained in:
Adam Sjøgren 2014-11-13 04:22:36 +00:00 committed by Katsumi Yamaoka
parent ac03795dc4
commit e18c2a53a9
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

@ -1,3 +1,7 @@
2014-11-10 Adam Sjøgren <asjo@koldfront.dk>
* mml2015.el (mml2015-display-key-image): New variable.
2014-10-27 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus.el (gnus-mode-line-buffer-identification):

9
lisp/gnus/mml2015.el
View File

@ -152,6 +152,12 @@ If set, it overrides the setting of `mml2015-sign-with-sender'."
:group 'mime-security
:type 'integer)
(defcustom mml2015-display-key-image t
"If t, try to display key images."
:version "24.5"
:group 'mime-security
:type 'boolean)
;; Extract plaintext from cleartext signature. IMO, this kind of task
;; should be done by GnuPG rather than Elisp, but older PGP backends
;; (such as Mailcrypt, and PGG) discard the output from GnuPG.
@ -903,7 +909,8 @@ If set, it overrides the setting of `mml2015-sign-with-sender'."
(defun mml2015-epg-signature-to-string (signature)
(concat (epg-signature-to-string signature)
(mml2015-epg-key-image-to-string (epg-signature-key-id signature))))
(when mml2015-display-key-image
(mml2015-epg-key-image-to-string (epg-signature-key-id signature)))))
(defun mml2015-epg-verify-result-to-string (verify-result)
(mapconcat #'mml2015-epg-signature-to-string verify-result "\n"))