* wl-mime.el (wl-message-delete-current-part): Use `insert-buffer-substring' instead...

* wl-summary.el (wl-summary-switch-to-clone-buffer): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index e9367f5..877c714 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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)