NUMBERS is a list of message numbers to be processed.
If IGNORE-FLAGS is non-nil, folder flags are not updated.")
-(luna-define-generic elmo-folder-mark-as-important (folder
+(luna-define-generic elmo-folder-mark-as-important (folder
numbers
&optional ignore-flags)
"Mark messages as important.
;;
(elmo-msgdb-copy-overview-entity entity))
-(defun elmo-message-entity-set-number (entity number)
+(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.
A number is for message number in the FOLDER.
-A string is for message-d of the message.")
+A string is for message-id of the message.")
(luna-define-method elmo-message-entity ((folder elmo-folder) key)
(elmo-msgdb-message-entity (elmo-folder-msgdb folder) key))
folder
(elmo-number-set-append-list (elmo-folder-killed-list-internal
folder) numbers)))
-
+
(luna-define-method elmo-folder-clear ((folder elmo-folder)
&optional keep-killed)
If NO-CHECK is non-nil, rechecking folder is skipped.
Return a list of a cross-posted message number.
If update process is interrupted, return nil.")
-
+
(luna-define-method elmo-folder-synchronize ((folder elmo-folder)
&optional ignore-msgdb no-check)
(let ((killed-list (elmo-folder-killed-list-internal folder))
(when (and (not (eq (length (car diff))
(length new-list)))
(setq diff-2 (elmo-list-diff (car diff) new-list)))
- (elmo-folder-kill-messages-before folder
+ (elmo-folder-kill-messages-before folder
(nth (- (length (car diff-2)) 1)
(car diff-2))))
(setq delete-list (cadr diff))
(let ((msgdb (elmo-load-msgdb (elmo-folder-msgdb-path folder))))
(elmo-folder-set-info-max-by-numdb folder
(elmo-msgdb-get-number-alist msgdb))
-
+
(unless silent
(message "Loading msgdb for %s...done"
(elmo-folder-name-internal folder)))
msgdb))
-
+
(defun elmo-msgdb-delete-path (folder)
(let ((path (elmo-folder-msgdb-path folder)))
(if (file-directory-p path)