(elmo-msgdb-list-flagged (elmo-folder-msgdb folder) flag))
(luna-define-method elmo-folder-list-unreads ((folder elmo-folder))
- (elmo-msgdb-list-flagged (elmo-folder-msgdb folder) 'unread))
+ (elmo-folder-list-flagged folder 'unread))
(luna-define-method elmo-folder-list-importants ((folder elmo-folder))
- (elmo-msgdb-list-flagged (elmo-folder-msgdb folder) 'important))
+ (elmo-folder-list-flagged folder 'important))
(luna-define-method elmo-folder-list-answereds ((folder elmo-folder))
- (elmo-msgdb-list-flagged (elmo-folder-msgdb folder) 'answered))
+ (elmo-folder-list-flagged folder 'answered))
(luna-define-generic elmo-folder-list-messages-internal (folder &optional
visible-only)
(setq failure nil
mark (elmo-message-mark src-folder (car numbers))
flag (cond
+ ((null mark) nil)
((member mark (elmo-msgdb-answered-marks))
'answered)
;;
(if (and (not no-delete) succeeds)
(progn
(if (and (elmo-folder-delete-messages src-folder succeeds)
- (elmo-msgdb-delete-msgs
- (elmo-folder-msgdb src-folder) succeeds))
+ (elmo-folder-detach-messages src-folder succeeds))
(setq result t)
(message "move: delete messages from %s failed."
(elmo-folder-name-internal src-folder))
(elmo-message-use-cache-p folder number))
(elmo-folder-set-mark-modified-internal folder t)))
+(defun elmo-message-copy-entity (entity)
+ ;;
+ (elmo-msgdb-copy-overview-entity entity))
+
+(defun elmo-message-entity-set-number (entity number)
+ (elmo-msgdb-overview-entity-set-number entity number))
+
(luna-define-generic elmo-message-entity (folder key)
"Return the message-entity structure which matches to the KEY.
KEY is a number or a string.
'sugar' flag:
`read' (set unread flag)")
-(defun elmo-message-mark (folder number)
+(luna-define-generic elmo-message-mark (folder number)
"Get mark of the message.
FOLDER is the ELMO folder structure.
-NUMBER is a number of the message."
+NUMBER is a number of the message.")
+
+(luna-define-method elmo-message-mark ((folder elmo-folder) number)
(elmo-msgdb-get-mark (elmo-folder-msgdb folder) number))
(defun elmo-message-field (folder number field)
(elmo-folder-process-crosspost folder)
0 ; no updates.
)
- (if delete-list (elmo-msgdb-delete-msgs
- (elmo-folder-msgdb folder) delete-list))
+ (when delete-list
+ (elmo-folder-detach-messages folder delete-list))
(when new-list
(elmo-msgdb-change-mark (elmo-folder-msgdb folder)
elmo-msgdb-new-mark
(elmo-folder-set-killed-list-internal folder killed-list)
nil))))
+(luna-define-generic elmo-folder-detach-messages (folder numbers)
+ "Remove messages with NUMBERS from MSGDB.")
+
+(luna-define-method elmo-folder-detach-messages ((folder elmo-folder)
+ numbers)
+ (elmo-msgdb-delete-msgs (elmo-folder-msgdb folder) numbers))
+
(luna-define-generic elmo-folder-length (folder)
"Return number of messages in the FOLDER.")