Commit e18c2a53 authored by Adam Sjøgren's avatar Adam Sjøgren Committed by Katsumi Yamaoka
Browse files

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

parent ac03795d
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):
......
......@@ -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"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment