- (setq importants (elmo-uniq-list
- (nconc (elmo-folder-list-importants
- wl-summary-buffer-elmo-folder)
- ;; XXX Temporal implementation.
- ;; It should be merged to the
- ;; elmo-folder-list-flagged.
- (elmo-folder-list-global-flag-messages
- wl-summary-buffer-elmo-folder
- 'important)))
- unreads (elmo-folder-list-unreads
- wl-summary-buffer-elmo-folder)
- answereds (elmo-folder-list-answereds
- wl-summary-buffer-elmo-folder))
- (setq diff (elmo-list-diff importants
- (elmo-folder-list-flagged
+ (dolist (flag elmo-global-flag-list)
+ (unless (memq flag '(answered cached new unread))
+ (setq diff (elmo-list-diff (elmo-folder-list-flagged
+ wl-summary-buffer-elmo-folder
+ flag)
+ (elmo-folder-list-flagged
+ wl-summary-buffer-elmo-folder
+ flag 'in-msgdb)))
+ (setq diffs (cadr diff)) ; deletes
+ (setq mes (concat mes (format "-%d" (length diffs))))
+ (while diffs
+ (wl-summary-remove-flags-internal (car diffs)
+ (list flag) 'no-server)
+ (setq diffs (cdr diffs)))
+ (setq diffs (car diff)) ; appends
+ (setq mes (concat mes (format "/+%d %s," (length diffs) flag)))
+ (while diffs
+ (wl-summary-add-flags-internal (car diffs)
+ (list flag) 'no-server)
+ (setq diffs (cdr diffs)))))
+
+ (setq diff (elmo-list-diff (elmo-folder-list-flagged