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