;;; Code:
;;
+(eval-when-compile (require 'cl))
(require 'elmo)
(require 'luna)
(luna-define-method elmo-message-set-cached ((folder elmo-multi-folder)
number cached)
(let ((pair (elmo-multi-real-folder-number folder number)))
- (elmo-message-set-cached (car pair) (cdr pair) cached)))
+ (elmo-message-set-cached (car pair) (cdr pair) cached))
+ (elmo-folder-notify-event folder 'cache-changed number))
+
+(luna-define-method elmo-find-fetch-strategy ((folder elmo-multi-folder)
+ number
+ &optional
+ ignore-cache
+ require-entireness)
+ (let ((pair (elmo-multi-real-folder-number folder number)))
+ (elmo-find-fetch-strategy (car pair)
+ (cdr pair)
+ ignore-cache
+ require-entireness)))
-(luna-define-method elmo-find-fetch-strategy
- ((folder elmo-multi-folder) entity &optional ignore-cache)
- (let ((pair (elmo-multi-real-folder-number
- folder
- (elmo-message-entity-number entity))))
- (elmo-find-fetch-strategy
- (car pair)
- (elmo-message-entity (car pair) (cdr pair)) ignore-cache)))
+(luna-define-method elmo-message-number ((folder elmo-multi-folder)
+ message-id)
+ (let ((children (elmo-multi-folder-children-internal folder))
+ match)
+ (while children
+ (when (setq match (elmo-message-number (car children) message-id))
+ (setq children nil))
+ (setq children (cdr children)))
+ match))
(luna-define-method elmo-message-entity ((folder elmo-multi-folder) key)
(cond
(let ((pair (elmo-multi-real-folder-number folder number)))
(elmo-message-field (car pair) (cdr pair) field)))
-(luna-define-method elmo-message-flags ((folder elmo-multi-folder) number
- &optional msgid)
+(luna-define-method elmo-message-flag-available-p ((folder
+ elmo-multi-folder) number
+ flag)
(let ((pair (elmo-multi-real-folder-number folder number)))
- (elmo-message-flags (car pair) (cdr pair) msgid)))
+ (elmo-message-flag-available-p (car pair) (cdr pair) flag)))
+
+(luna-define-method elmo-message-flags ((folder elmo-multi-folder) number)
+ (let ((pair (elmo-multi-real-folder-number folder number)))
+ (elmo-message-flags (car pair) (cdr pair))))
(defun elmo-multi-split-numbers (folder numlist &optional as-is)
(let ((numbers (sort numlist '<))
(luna-define-method elmo-message-fetch ((folder elmo-multi-folder)
number strategy
- &optional section outbuf unseen)
+ &optional unseen section)
(let ((pair (elmo-multi-real-folder-number folder number)))
- (elmo-message-fetch (car pair) (cdr pair) strategy section outbuf unseen)))
+ (when (elmo-message-fetch (car pair) (cdr pair)
+ strategy unseen section)
+ (unless unseen
+ (elmo-folder-notify-event folder 'flag-changed (list number)))
+ t)))
(luna-define-method elmo-folder-delete-messages ((folder elmo-multi-folder)
numbers)
(elmo-multi-folder-diff folder))
(defun elmo-multi-folder-diff (folder)
- (let ((flds (elmo-multi-folder-children-internal folder))
- (news 0)
+ (let ((news 0)
(unreads 0)
(alls 0)
- no-unreads diff)
- (while flds
- (setq diff (elmo-folder-diff (car flds)))
- (cond
- ((consp (cdr diff)) ; (new unread all)
- (setq news (+ news (nth 0 diff))
- unreads (+ unreads (nth 1 diff))
- alls (+ alls (nth 2 diff))))
- (t
- (setq no-unreads t)
- (setq news (+ news (car diff))
- alls (+ alls (cdr diff)))))
- (setq flds (cdr flds)))
- (if no-unreads
- (cons news alls)
- (list news unreads alls))))
+ diff value)
+ (dolist (child (elmo-multi-folder-children-internal folder))
+ (setq diff (elmo-folder-diff child))
+ (setq news (and news
+ (setq value (elmo-diff-new diff))
+ (+ news value))
+ unreads (and unreads
+ (setq value (elmo-diff-unread diff))
+ (+ unreads value))
+ alls (and alls
+ (setq value (elmo-diff-all diff))
+ (+ alls value))))
+ (if unreads
+ (list news unreads alls)
+ (cons news alls))))
(luna-define-method elmo-folder-list-messages
((folder elmo-multi-folder) &optional visible-only in-msgdb)
flag
&optional is-local)
(dolist (pair (elmo-multi-make-folder-numbers-list folder numbers))
- (elmo-folder-set-flag (car pair) (cdr pair) flag is-local)))
+ (elmo-folder-set-flag (car pair) (cdr pair) flag is-local))
+ (elmo-folder-notify-event folder 'flag-changed numbers))
(luna-define-method elmo-folder-unset-flag ((folder elmo-multi-folder)
numbers
flag
&optional is-local)
(dolist (pair (elmo-multi-make-folder-numbers-list folder numbers))
- (elmo-folder-unset-flag (car pair) (cdr pair) flag is-local)))
+ (ignore-errors
+ (elmo-folder-unset-flag (car pair) (cdr pair) flag is-local)))
+ (elmo-folder-notify-event folder 'flag-changed numbers))
(luna-define-method elmo-folder-list-flagged ((folder elmo-multi-folder)
flag
sum))
(luna-define-method elmo-folder-count-flags ((folder elmo-multi-folder))
- (let ((new 0)
- (unreads 0)
- (answered 0)
- flags)
+ (let (flag-alist element)
(dolist (child (elmo-multi-folder-children-internal folder))
- (setq flags (elmo-folder-count-flags child))
- (setq new (+ new (nth 0 flags)))
- (setq unreads (+ unreads (nth 1 flags)))
- (setq answered (+ answered (nth 2 flags))))
- (list new unreads answered)))
+ (dolist (pair (elmo-folder-count-flags child))
+ (if (setq element (assq (car pair) flag-alist))
+ (setcdr element (+ (cdr element) (cdr pair)))
+ (setq flag-alist (cons pair flag-alist)))))
+ flag-alist))
(require 'product)
(product-provide (provide 'elmo-multi) (require 'elmo-version))
projects / elisp / wanderlust.git / blobdiff