(elmo-imap4-fetch-callback-1-subr): Determine new

[elisp/wanderlust.git] / elmo / elmo-imap4.el

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index f2dda4b..4341e2a 100644 (file)
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -827,7 +827,7 @@ If CHOP-LENGTH is not specified, message set is not chopped."
          flag-list
          (if use-flag
              (append
-              (and (elmo-string-member-ignore-case "\\Recent" flags)
+              (and (memq 'new saved-flags)
                    '(new))
               (and (elmo-string-member-ignore-case "\\Flagged" flags)
                    '(important))