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