[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r117074: lisp/gnus/mml2015.el (mml2015-display-key-i
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] trunk r117074: lisp/gnus/mml2015.el (mml2015-display-key-image): New variable |
Date: |
Thu, 08 May 2014 22:42:21 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 117074
revision-id: address@hidden
parent: address@hidden
author: Adam Sjøgren <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2014-05-08 22:42:13 +0000
message:
lisp/gnus/mml2015.el (mml2015-display-key-image): New variable
modified:
lisp/gnus/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1433
lisp/gnus/mml2015.el mml2015.el-20091113204419-o5vbwnq5f7feedwu-3261
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2014-05-08 03:41:21 +0000
+++ b/lisp/gnus/ChangeLog 2014-05-08 22:42:13 +0000
@@ -1,3 +1,7 @@
+2014-05-08 Adam Sjøgren <address@hidden>
+
+ * mml2015.el (mml2015-display-key-image): New variable.
+
2014-05-08 Glenn Morris <address@hidden>
* gnus-fun.el (gnus-grab-cam-face):
=== modified file 'lisp/gnus/mml2015.el'
--- a/lisp/gnus/mml2015.el 2014-03-23 23:13:36 +0000
+++ b/lisp/gnus/mml2015.el 2014-05-08 22:42:13 +0000
@@ -147,6 +147,12 @@
:group 'mime-security
:type 'integer)
+(defcustom mml2015-display-key-image t
+ "If t, try to display key images."
+ :version "24.4"
+ :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.
@@ -898,7 +904,8 @@
(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"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r117074: lisp/gnus/mml2015.el (mml2015-display-key-image): New variable,
Katsumi Yamaoka <=