* wl-draft.el (wl-draft-do-mime-bcc): Preserve original from instead

of using wl-from.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8189950..8fae17a 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-20  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-draft.el (wl-draft-do-mime-bcc): Preserve original from instead
+       of using wl-from.
+
 2002-05-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-draft.el (wl-draft-do-mime-bcc): Use generate-new-buffer and

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 5ef8bc2..e4febec 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1293,7 +1293,8 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 
 (defun wl-draft-do-mime-bcc (field-body)
   "Send MIME-Bcc (Encapsulated blind carbon copy)."
-  (let ((orig-subj (std11-field-body "subject"))
+  (let ((orig-from (std11-field-body "from"))
+       (orig-subj (std11-field-body "subject"))
        (recipients (wl-parse-addresses field-body))
        (draft-buffer (current-buffer))
        buffer)
@@ -1314,8 +1315,8 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
                ;; To work wl-draft-create-contents.
                (setq major-mode 'wl-draft-mode)
                (wl-draft-create-contents
-                (append `((To . ,recipient)
-                          (From . ,wl-from)
+                (append `((From . ,orig-from)
+                          (To . ,recipient)
                           (Subject . ,(concat "A blind carbon copy ("
                                               orig-subj
                                               ")")))