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