mml2015-epg-encrypt: Use mml2015-sign-with-sender

Signed-off-by: Julien Danjou <julien@danjou.info>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1d33174..37fe099 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2011-01-27  Julien Danjou  <julien@danjou.info>
 
        * mml2015.el (mml2015-epg-sign): Add and use mml2015-sign-with-sender.
+       (mml2015-epg-encrypt): Use mml2015-sign-with-sender.
 
 2011-01-27  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index 00d69e9..eb01c92 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -1041,7 +1041,8 @@ If no one is selected, default secret key is used.  "
   (let ((inhibit-redisplay t)
        (context (epg-make-context))
        (config (epg-configuration))
-       (sender (message-options-get 'message-sender))
+       (sender (when mml2015-sign-with-sender
+                  (message-options-get 'message-sender)))
        (recipients (message-options-get 'mml2015-epg-recipients))
        cipher signers
        (boundary (mml-compute-boundary cont))