Use `insert-buffer-substring' instead of `insert-buffer'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 6c9accc..67b43c1 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -7,6 +7,8 @@
        * wl-mime.el (wl-message-delete-current-part): Use
        `insert-buffer-substring' instead of `insert-buffer'.
        * wl-summary.el (wl-summary-switch-to-clone-buffer): Ditto.
+       * wl-draft.el (wl-draft-generate-clone-buffer)
+       (wl-draft-do-mime-bcc): Ditto.
 
        * wl-address.el: Add (eval-when-compile (require 'cl)).
        * wl-addrmgr.el: Ditto.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 530f913..bb7c8f4 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1402,7 +1402,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
                        "This is a blind carbon copy.")
                    "\n")
            (mime-edit-insert-tag "message" "rfc822")
-           (insert-buffer draft-buffer)
+           (insert-buffer-substring draft-buffer)
            (let (wl-interactive-send)
              (wl-draft-send 'kill-when-done))))))))
 
@@ -1940,7 +1940,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
       (erase-buffer)
       (wl-draft-mode)
       (wl-draft-editor-mode)
-      (insert-buffer editing-buffer)
+      (insert-buffer-substring editing-buffer)
       (message "")
       (while local-variables
        (make-local-variable (car local-variables))