- (if (or seen
- (and use-flag
- (elmo-string-member-ignore-case "\\Seen" flags)))
- nil
- (nth 1 app-data))
- (if (or seen
- (and use-flag
- (elmo-string-member-ignore-case "\\Seen" flags)))
- (if elmo-imap4-use-cache
- (nth 2 app-data))
- (nth 0 app-data))))))
+ ;; cached.
+ (if (and use-flag (member "\\Seen" flags))
+ (if (elmo-string-member-ignore-case
+ "\\Answered" flags)
+ elmo-msgdb-answered-cached-mark
+ nil)
+ elmo-msgdb-unread-cached-mark)
+ ;; uncached.
+ (if (elmo-string-member-ignore-case "\\Answered" flags)
+ elmo-msgdb-answered-uncached-mark
+ (if (and use-flag
+ (elmo-string-member-ignore-case
+ "\\Seen" flags))
+ (if (elmo-string-member-ignore-case
+ "\\Answered" flags)
+ elmo-msgdb-answered-uncached-mark
+ (if elmo-imap4-use-cache
+ elmo-msgdb-read-uncached-mark))
+ elmo-msgdb-new-mark))))))