From: kaoru <kaoru>
Date: Tue, 19 Feb 2008 11:01:54 +0000 (+0000)
Subject: * wl-mime.el (wl-message-delete-current-part): Use `insert-buffer-substring' instead... 
X-Git-Tag: wl-2_15_6-fixes~33
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3067e74851753488f41075749e8ea2eba967c259;p=elisp%2Fwanderlust.git

* 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.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e9367f5..877c714 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2008-02-19  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* 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-address.el: Add (eval-when-compile (require 'cl)).
 	* wl-addrmgr.el: Ditto.
 	* wl-mime.el: Ditto.
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index c8a798e..540f87d 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -450,7 +450,7 @@ It calls following-method selected from variable
 		  (format "Do you really want to delete part %s? "
 			  (wl-mime-node-id-to-string node-id))))
 	(when (with-temp-buffer
-		(insert-buffer orig-buf)
+		(insert-buffer-substring orig-buf)
 		(delete-region header-start body-end)
 		(goto-char header-start)
 		(insert "Content-Type: text/plain; charset=US-ASCII\n")
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index fbc15ae..68e662b 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -2297,7 +2297,7 @@ If ARG, without confirm."
     (wl-summary-mode)
     (wl-summary-buffer-set-folder folder)
     (let ((buffer-read-only nil))
-      (insert-buffer cur-buf))
+      (insert-buffer-substring cur-buf))
     (set-buffer-modified-p nil)
     (while copy-variables
       (set (car copy-variables)