From: teranisi <teranisi>
Date: Mon, 20 May 2002 13:24:14 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-do-mime-bcc): Use generate-new-buffer and
X-Git-Tag: elmo-mark-root~106
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=08da58f69321a9535719e9b14992f1ba5cb776ad;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-do-mime-bcc): Use generate-new-buffer and
 insert-buffer instead of clone-buffer.
---

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  <teranisi@gohome.org>
 
+	* 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