From 8c3af1bb3f3c6d20e19c0e9c05aebe087fe267d8 Mon Sep 17 00:00:00 2001 From: yoichi Date: Wed, 16 Oct 2002 14:55:17 +0000 Subject: [PATCH] * wl-mime.el (wl-message-delete-current-part): Quit if the message content differs from the actual message. --- wl/ChangeLog | 3 +++ wl/wl-mime.el | 6 ++++++ 2 files changed, 9 insertions(+) diff --git a/wl/ChangeLog b/wl/ChangeLog index bb35c8b..b6813c6 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -7,6 +7,9 @@ original buffer which corresponds current mime-view buffer. (fetched buffer might have different structure, possibly) + * wl-mime.el (wl-message-delete-current-part): Quit if the + message content differs from the actual message. + 2002-10-12 Yuuichi Teranishi * wl-summary.el (wl-summary-insert-headers): Put alike hash in reverse diff --git a/wl/wl-mime.el b/wl/wl-mime.el index 8b6a414..0b2a59d 100644 --- a/wl/wl-mime.el +++ b/wl/wl-mime.el @@ -184,6 +184,12 @@ 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)) + (with-current-buffer orig-buf + (unless (string-equal + (buffer-string) + (elmo-message-fetch folder number + (elmo-make-fetch-strategy 'entire))) + (error "Buffer content differs from actual message"))) (when (and (elmo-folder-writable-p folder) (buffer-live-p orig-buf) node-id -- 1.7.10.4