From: hmurata <hmurata>
Date: Fri, 18 Oct 2002 08:15:47 +0000 (+0000)
Subject: * wl-mime.el (wl-message-delete-current-part): Use `delete-region'
X-Git-Tag: wl-2_11_1~94
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f9e41653cae8322955f81d19b00987a6e0b9c567;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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")