From 08da58f69321a9535719e9b14992f1ba5cb776ad Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 20 May 2002 13:24:14 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-do-mime-bcc): Use generate-new-buffer and insert-buffer instead of clone-buffer. --- wl/ChangeLog | 3 +++ wl/wl-draft.el | 5 ++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 343eb75..f7fcba4 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,5 +1,8 @@ 2002-05-20 Yuuichi Teranishi + * wl-draft.el (wl-draft-do-mime-bcc): Use generate-new-buffer and + insert-buffer instead of clone-buffer. + * 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 277b4eb..990ddb0 100644 --- a/wl/wl-draft.el +++ b/wl/wl-draft.el @@ -1294,9 +1294,12 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed" "Send MIME-Bcc (Encapsulated blind carbon copy)." (let ((orig-subj (std11-field-body "subject")) (recipients (wl-parse-addresses field-body)) + (draft-buffer (current-buffer)) buffer) (when (not (zerop (length field-body))) - (setq buffer (clone-buffer " *temporary buffer for mime bcc*")) + (with-current-buffer (setq buffer (generate-new-buffer + " *temporary buffer for mime bcc*")) + (insert-buffer draft-buffer)) (unwind-protect (dolist (recipient recipients) (with-temp-buffer -- 1.7.10.4