Fix missing argument in cons.

* lisp/mml2015.el (mml2015-epg-encrypt): Add missing sender in cons,
  thanks Katsumi Yamaoka.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index be7c0a9..eb0e5c6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-11-17  Daniel Dehennin  <daniel.dehennin@baby-gnu.org>
+
+       * mml2015.el (mml2015-epg-encrypt): Fix two cons with missing
+       sender, thanks Katsumi Yamaoka.
+
 2010-11-17  Andrew Cohen  <cohen@andy.bu.edu>
 
        * nnir.el (nnir-run-imap): Reverse the article list for each group

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index 5a515fa..e247abb 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -1062,7 +1062,7 @@ If no one is selected, symmetric encryption will be performed.  "
                     (epa-select-keys context "\
 Select keys for signing.
 If no one is selected, default secret key is used.  "
-                                     (cons mml2015-signers) t)
+                                     (cons sender mml2015-signers) t)
                   (if (or sender mml2015-signers)
                       (delq nil
                             (mapcar
@@ -1077,7 +1077,7 @@ If no one is selected, default secret key is used.  "
                                              signer)))
                                  (error "No secret key for %s" signer))
                                signer-key)
-                             (cons mml2015-signers))))))))
+                             (cons sender mml2015-signers))))))))
       (epg-context-set-signers context signers))
     (epg-context-set-armor context t)
     (epg-context-set-textmode context t)