From 597ba1128ef5c3ffa884ffe31c22508da5bb5479 Mon Sep 17 00:00:00 2001 From: yoichi Date: Mon, 20 May 2002 15:16:40 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-do-mime-bcc): Preserve original from instead of using wl-from. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) 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 + + * wl-draft.el (wl-draft-do-mime-bcc): Preserve original from instead + of using wl-from. + 2002-05-20 Yuuichi Teranishi * 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 ")"))) -- 1.7.10.4