(luna-define-method elmo-folder-msgdb-create ((folder elmo-localdir-folder)
numbers
- new-mark
- already-mark
- seen-mark
- important-mark
seen-list)
(when numbers
(let ((dir (elmo-localdir-folder-directory-internal folder))
(if (elmo-file-cache-exists-p message-id) ; XXX
(if seen
nil
- already-mark)
+ elmo-msgdb-unread-cached-mark)
(if seen
nil ;;seen-mark
- new-mark))))
+ elmo-msgdb-new-mark))))
(setq mark-alist
(elmo-msgdb-mark-append
mark-alist
(luna-define-method elmo-folder-append-messages :around
((folder elmo-localdir-folder)
- src-folder numbers unread-marks &optional same-number)
+ src-folder numbers &optional same-number)
(if (elmo-folder-message-file-p src-folder)
(let ((dir (elmo-localdir-folder-directory-internal folder))
(succeeds numbers)
(let ((dir (elmo-localdir-folder-directory-internal folder)))
(if (not (file-directory-p dir))
(error "No such directory: %s" dir)
- (elmo-delete-directory dir t)
+ (elmo-delete-match-files dir "[0-9]+" t)
t)))
(luna-define-method elmo-folder-rename-internal ((folder elmo-localdir-folder)
(message "Packing...done")
(elmo-folder-set-msgdb-internal
folder
- (list (elmo-msgdb-get-overview msgdb)
- onum-alist
- new-mark-alist
- ;; remake hash table
- (elmo-msgdb-make-overview-hashtb
- (elmo-msgdb-get-overview msgdb))))))
+ (elmo-make-msgdb
+ (elmo-msgdb-get-overview msgdb)
+ onum-alist
+ new-mark-alist))))
(luna-define-method elmo-folder-message-file-p ((folder elmo-localdir-folder))
t)