From: yoichi <yoichi>
Date: Wed, 16 Oct 2002 10:25:45 +0000 (+0000)
Subject: fixed last change.
X-Git-Tag: wl-2_11_1~103
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a31babafb46a8d05d0767e0c7be378d6e54e4bd5;p=elisp%2Fwanderlust.git

fixed last change.
---

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 3dfa7bb..575c235 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -183,7 +183,8 @@ By setting following-method as yank-content."
 	 (folder (wl-folder-get-elmo-folder wl-message-buffer-cur-folder))
 	 (number wl-message-buffer-cur-number)
 	 (msgid (elmo-message-field folder number 'message-id)))
-    (when (and node-id
+    (when (and (elmo-folder-writable-p folder)
+	       node-id
 	       (yes-or-no-p
 		(format "Do you really want to delete part %s? "
 			(wl-mime-node-id-to-string node-id))))