From: yoichi <yoichi>
Date: Wed, 16 Oct 2002 14:55:17 +0000 (+0000)
Subject: * wl-mime.el (wl-message-delete-current-part): Quit if the
X-Git-Tag: wl-2_11_1~101
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8c3af1bb3f3c6d20e19c0e9c05aebe087fe267d8;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-message-delete-current-part): Quit if the
message content differs from the actual message.
---

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  <teranisi@gohome.org>
 
 	* 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