- ;; This is a provisional implement.
- (let ((mark (elmo-message-mark folder number)))
- (append
- (and (string= mark elmo-msgdb-new-mark)
- '(new))
- (and (string= mark elmo-msgdb-important-mark)
- '(important))
- (and (member mark (elmo-msgdb-unread-marks))
- '(unread))
- (and (member mark (elmo-msgdb-answered-marks))
- '(answered)))))