From: teranisi <teranisi>
Date: Mon, 20 May 2002 14:49:36 +0000 (+0000)
Subject: (wl-draft-do-mime-bcc): Use wl-from for From field value.
X-Git-Tag: elmo-mark-root~104
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=99728a37cd314d1ed07d1cf365db1eeb9816ba32;p=elisp%2Fwanderlust.git

(wl-draft-do-mime-bcc): Use wl-from for From field value.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 547409c..8189950 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,10 +1,11 @@
-2002-05-20  Yuuichi Teranishi  <teranisi@ns.templewest.net>
+2002-05-20  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-draft.el (wl-draft-do-mime-bcc): Use generate-new-buffer and
 	insert-buffer instead of clone-buffer.
 	(wl-draft-doing-mime-bcc): New variable.
 	(wl-draft-do-mime-bcc): Bind wl-draft-doing-mime-bcc to avoid
 	infinite loop.
+	(wl-draft-do-mime-bcc): Use wl-from for From field value.
 
 	* wl-vars.el (wl-draft-mime-bcc-field-name): New user option.
 	(wl-draft-mime-bcc-body): Ditto.
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 0c32b6c..5ef8bc2 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1315,6 +1315,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 		(setq major-mode 'wl-draft-mode)
 		(wl-draft-create-contents
 		 (append `((To . ,recipient)
+			   (From . ,wl-from)
 			   (Subject . ,(concat "A blind carbon copy ("
 					       orig-subj
 					       ")")))