From bb3cb342d3cb069ef1ebb6b1f6d349899edd9492 Mon Sep 17 00:00:00 2001 From: teranisi Date: Fri, 18 Oct 2002 01:12:06 +0000 Subject: [PATCH] * wl-mime.el (wl-message-delete-current-part): Check the class of mime-entity. --- wl/ChangeLog | 5 +++++ wl/wl-mime.el | 2 ++ 2 files changed, 7 insertions(+) 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 + + * wl-mime.el (wl-message-delete-current-part): Check the class of + mime-entity. + 2002-10-16 Yoichi NAKAYAMA * 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) -- 1.7.10.4