From: teranisi <teranisi>
Date: Fri, 18 Oct 2002 01:12:06 +0000 (+0000)
Subject: * wl-mime.el (wl-message-delete-current-part): Check the class of
X-Git-Tag: wl-2_11_1~99
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bb3cb342d3cb069ef1ebb6b1f6d349899edd9492;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-message-delete-current-part): Check the class of
mime-entity.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b6813c6..132a34e 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-18  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime.el (wl-message-delete-current-part): Check the class of
+	mime-entity.
+
 2002-10-16  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
 	* wl-mime.el (wl-message-delete-current-part): New function.
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 0b2a59d..9df89f8 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -184,6 +184,8 @@ By setting following-method as yank-content."
 	 (number wl-message-buffer-cur-number)
 	 (msgid (elmo-message-field folder number 'message-id))
 	 (orig-buf wl-message-buffer-original-buffer))
+    (if (eq (luna-class-name entity) 'mime-elmo-imap-entity)
+	(error "Please fetch the entire message (by typing 'C-u .') and try again"))
     (with-current-buffer orig-buf
       (unless (string-equal
 	       (buffer-string)