From: kaoru <kaoru>
Date: Tue, 19 Feb 2008 18:16:43 +0000 (+0000)
Subject: Use `insert-buffer-substring' instead of `insert-buffer'.
X-Git-Tag: wl-2_15_6-fixes~27
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=705c1530dde1e79fa7bfaf535e24b9c85d446b6e;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 6c9accc..67b43c1 100644
--- 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
--- 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))