* mml1991.el (mml1991-epg-sign): Don't lookup a private kye by

message-sender.
(mml1991-epg-encrypt): Ditto.
* mml2015.el (mml2015-epg-sign): Don't lookup a private key by
message-sender.
(mml2015-epg-encrypt): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c883d6c..f6e7720 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2006-09-06  Daiki Ueno  <ueno@unixuser.org>
+
+       * mml1991.el (mml1991-epg-sign): Don't lookup a private kye by
+       message-sender.
+       (mml1991-epg-encrypt): Ditto.
+       * mml2015.el (mml2015-epg-sign): Don't lookup a private key by
+       message-sender.
+       (mml2015-epg-encrypt): Ditto.
+
 2006-09-04  Chong Yidong  <cyd@stupidchicken.com>
 
        * message.el (message-send-mail-with-sendmail): Look for sendmail in

diff --git a/lisp/mml1991.el b/lisp/mml1991.el
index c0113da..6f88f0e 100644 (file)
--- a/lisp/mml1991.el
+++ b/lisp/mml1991.el
@@ -368,11 +368,7 @@ If no one is selected, default secret key is used.  "
       (if mml1991-signers
          (setq signers (mapcar (lambda (name)
                                  (car (epg-list-keys context name t)))
-                               mml1991-signers))
-       (setq signers (list (car (epg-list-keys
-                                 context
-                                 (message-options-get 'mml-sender)
-                                 t))))))
+                               mml1991-signers))))
     (epg-context-set-armor context t)
     (epg-context-set-textmode context t)
     (epg-context-set-signers context signers)
@@ -472,11 +468,7 @@ If no one is selected, default secret key is used.  "
        (if mml1991-signers
            (setq signers (mapcar (lambda (name)
                                    (car (epg-list-keys context name t)))
-                                 mml1991-signers))
-         (setq signers (list (car (epg-list-keys
-                                   context
-                                   (message-options-get 'mml-sender)
-                                   t))))))
+                                 mml1991-signers))))
       (epg-context-set-signers context signers))
     (epg-context-set-armor context t)
     (epg-context-set-textmode context t)

diff --git a/lisp/mml2015.el b/lisp/mml2015.el
index babdab9..18d0a87 100644 (file)
--- a/lisp/mml2015.el
+++ b/lisp/mml2015.el
@@ -1122,11 +1122,7 @@ If no one is selected, default secret key is used.  "
       (if mml2015-signers
          (setq signers (mapcar (lambda (name)
                                  (car (epg-list-keys context name t)))
-                               mml2015-signers))
-       (setq signers (list (car (epg-list-keys
-                                 context
-                                 (message-options-get 'mml-sender)
-                                 t))))))
+                               mml2015-signers))))
     (epg-context-set-armor context t)
     (epg-context-set-textmode context t)
     (epg-context-set-signers context signers)
@@ -1213,11 +1209,7 @@ If no one is selected, default secret key is used.  "
        (if mml2015-signers
            (setq signers (mapcar (lambda (name)
                                    (car (epg-list-keys context name t)))
-                                 mml2015-signers))
-         (setq signers (list (car (epg-list-keys
-                                   context
-                                   (message-options-get 'mml-sender)
-                                   t))))))
+                                 mml2015-signers))))
       (epg-context-set-signers context signers))
     (epg-context-set-armor context t)
     (epg-context-set-textmode context t)