From 2873568d37e04fadb51637557ef6b1a0d132a71a Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Thu, 27 Jan 2011 17:18:19 +0100 Subject: [PATCH] mml2015: add an option to use sender address to sign Signed-off-by: Julien Danjou --- lisp/ChangeLog | 4 ++++ lisp/mml2015.el | 9 ++++++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dd0012096..1d33174b6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2011-01-27 Julien Danjou + + * mml2015.el (mml2015-epg-sign): Add and use mml2015-sign-with-sender. + 2011-01-27 Katsumi Yamaoka * shr.el (shr-expand-newlines, shr-previous-newline-padding-width): diff --git a/lisp/mml2015.el b/lisp/mml2015.el index 0ac6208d9..00d69e9e0 100644 --- a/lisp/mml2015.el +++ b/lisp/mml2015.el @@ -120,6 +120,12 @@ Whether the passphrase is cached at all is controlled by :group 'mime-security :type '(repeat (string :tag "Key ID"))) +(defcustom mml2015-sign-with-sender nil + "If t, use message sender so find a key to sign with." + :group 'mime-security + :type 'boolean + :version "24.1") + (defcustom mml2015-encrypt-to-self nil "If t, add your own key ID to recipient list when encryption." :group 'mime-security @@ -959,7 +965,8 @@ Whether the passphrase is cached at all is controlled by (let* ((inhibit-redisplay t) (context (epg-make-context)) (boundary (mml-compute-boundary cont)) - (sender (message-options-get 'message-sender)) + (sender (when mml2015-sign-with-sender + message-options-get 'message-sender)) signer-key (signers (or (message-options-get 'mml2015-epg-signers) -- 2.34.1