- (if (elmo-file-cache-status
- (elmo-file-cache-get message-id))
- (if seen
- nil
- elmo-msgdb-unread-cached-mark)
- (if seen
- (if elmo-pop3-use-cache
- elmo-msgdb-read-uncached-mark)
- elmo-msgdb-new-mark))))
+ (elmo-msgdb-mark
+ (elmo-flag-table-get flag-table message-id)
+ (elmo-file-cache-status
+ (elmo-file-cache-get message-id))
+ 'new)))