+2011-01-27 Julien Danjou <julien@danjou.info>
+
+ * mml2015.el (mml2015-epg-sign): Add and use mml2015-sign-with-sender.
+
2011-01-27 Katsumi Yamaoka <yamaoka@jpl.org>
* shr.el (shr-expand-newlines, shr-previous-newline-padding-width):
: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
(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)