projects / elisp / wanderlust.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
* elmo-imap4.el (elmo-imap4-fetch-callback-1-subr): Fixed last
[elisp/wanderlust.git] / elmo / elmo-imap4.el
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 4341e2a..3bf70f7 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -828,6 +828,7 @@ If CHOP-LENGTH is not specified, message set is not chopped."
          (if use-flag
              (append
               (and (memq 'new saved-flags)
+                   (not (elmo-string-member-ignore-case "\\Seen" flags))
                    '(new))
               (and (elmo-string-member-ignore-case "\\Flagged" flags)
                    '(important))