* 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 (file)
--- 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 (file)
--- 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