* wl-mime.el (wl-message-delete-current-part): Use `delete-region'

instead of `kill-region'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 37c73bf..f7c54bd 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-18  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-mime.el (wl-message-delete-current-part): Use `delete-region'
+       instead of `kill-region'.
+
 2002-10-18  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl-mime.el (wl-mime-preview-follow-current-region): New function

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 9d0c402..fb8f58e 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -280,7 +280,7 @@ It calls following-method selected from variable
                          (wl-mime-node-id-to-string node-id))))
        (with-temp-buffer
          (insert-buffer orig-buf)
-         (kill-region header-start body-end)
+         (delete-region header-start body-end)
          (goto-char header-start)
          (insert "Content-Type: text/plain; charset=US-ASCII\n\n")
          (insert "** This part has been removed by Wanderlust **\n\n")