* 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 (file)
--- 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 (file)
--- 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)