2002-01-08 Simon Josefsson <jas@extundo.com>

	* mml.el (mml-generate-mime-1): Set recipient correctly.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af56239..27a9f4a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-08  Simon Josefsson  <jas@extundo.com>
+
+       * mml.el (mml-generate-mime-1): Set recipient correctly.
+
 2002-01-08  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * message.el (message-read-from-minibuffer): Add argument

diff --git a/lisp/mml.el b/lisp/mml.el
index b51223d..4813ab6 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -472,7 +472,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
          (if (setq sender (cdr (assq 'sender cont)))
              (message-options-set 'message-sender sender))
          (if (setq recipients (cdr (assq 'recipients cont)))
-             (message-options-set 'message-sender recipients))
+             (message-options-set 'message-recipients recipients))
          (funcall (nth 1 item) cont)))
       (let ((item (assoc (cdr (assq 'encrypt cont)) mml-encrypt-alist))
            sender recipients)
@@ -480,7 +480,7 @@ If MML is non-nil, return the buffer up till the correspondent mml tag."
          (if (setq sender (cdr (assq 'sender cont)))
              (message-options-set 'message-sender sender))
          (if (setq recipients (cdr (assq 'recipients cont)))
-             (message-options-set 'message-sender recipients))
+             (message-options-set 'message-recipients recipients))
          (funcall (nth 1 item) cont))))))
 
 (defun mml-compute-boundary (cont)