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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index e659e9833921b036a051b4a731ed38528427a0cd..6713df8581997cd977eb1e3eded162b06973d2e8 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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):

diff --git a/lisp/gnus/mml2015.el b/lisp/gnus/mml2015.el
index 9fc8f6e8c0c31d7a206c8bb98d540804d9080f2b..a1e38261b97e680db9e9ac6163457586a83eb26d 100644 (file)
--- a/lisp/gnus/mml2015.el
+++ b/lisp/gnus/mml2015.el
@@ -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"))