From 3067e74851753488f41075749e8ea2eba967c259 Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 19 Feb 2008 11:01:54 +0000 Subject: [PATCH] * 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/ChangeLog | 4 ++++ wl/wl-mime.el | 2 +- wl/wl-summary.el | 2 +- 3 files changed, 6 insertions(+), 2 deletions(-) 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 + * 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) -- 1.7.10.4