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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 547409c..8189950 100644 (file)
--- 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 (file)
--- 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
                                               ")")))