From: yoichi <yoichi>
Date: Mon, 20 May 2002 15:16:40 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-do-mime-bcc): Preserve original from instead
X-Git-Tag: elmo-mark-root~103
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=597ba1128ef5c3ffa884ffe31c22508da5bb5479;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
 					       ")")))