From: teranisi <teranisi>
Date: Tue, 7 Oct 2003 03:54:06 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-imap4-set-flag): Treat \Deleted flag as an exception.
X-Git-Tag: wl-2_11_19~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6f9d3a44d25c6a48b79a60983eba79580ce0cc0f;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-imap4-set-flag): Treat \Deleted flag as an exception.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 3cc519c..7fbbcfe 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -3,6 +3,7 @@
 	* elmo-imap4.el (elmo-imap4-session-select-mailbox): Use
 	`permanentflag'	instead of `flags'.
 	(elmo-folder-open): Ditto.
+	(elmo-imap4-set-flag): Treat \Deleted flag as an exception.
 
 2003-10-06  Yuuichi Teranishi  <teranisi@gohome.org>
 
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 67165a1..78ef4b8 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -2097,9 +2097,10 @@ If optional argument REMOVE is non-nil, remove FLAG."
     (elmo-imap4-session-select-mailbox session
 				       (elmo-imap4-folder-mailbox-internal
 					folder))
-    (when (elmo-string-member-ignore-case
-	   flag
-	   (elmo-imap4-session-flags-internal session))
+    (when (or (elmo-string-member-ignore-case
+	       flag
+	       (elmo-imap4-session-flags-internal session))
+	      (string= flag "\\Deleted")) ; XXX Humm..
       (setq set-list (elmo-imap4-make-number-set-list
 		      numbers
 		      elmo-imap4-number-set-chop-length))