From 6f9d3a44d25c6a48b79a60983eba79580ce0cc0f Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 7 Oct 2003 03:54:06 +0000 Subject: [PATCH] * elmo-imap4.el (elmo-imap4-set-flag): Treat \Deleted flag as an exception. --- elmo/ChangeLog | 1 + elmo/elmo-imap4.el | 7 ++++--- 2 files changed, 5 insertions(+), 3 deletions(-) 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 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)) -- 1.7.10.4