- (setq msgid (elmo-msgdb-overview-entity-get-id entity))
- (setq gmark (or (elmo-msgdb-global-mark-get msgid)
- (elmo-msgdb-mark
- (elmo-flag-table-get flag-table msgid)
- (elmo-file-cache-status
- (elmo-file-cache-get msgid))
- 'new)))
- (elmo-msgdb-append-entity new-msgdb entity gmark))
+ (setq msgid (elmo-message-entity-field entity 'message-id)
+ flags (elmo-flag-table-get flag-table msgid))
+ (elmo-global-flags-set flags folder (car numlist) msgid)
+ (elmo-msgdb-append-entity new-msgdb entity flags))