((and wl-summary-important-above
(> score wl-summary-important-above))
(if (wl-thread-jump-to-msg num);; force open
- (wl-summary-add-flags-internal num '(important))))
+ (wl-summary-set-persistent-mark 'important num)))
((and wl-summary-target-above
(> score wl-summary-target-above))
(if visible
(/ (* i 100) count))))
(when dels
(dolist (del dels)
- (elmo-message-set-flag wl-summary-buffer-elmo-folder
- del 'read))
+ (elmo-message-unset-flag wl-summary-buffer-elmo-folder
+ del 'unread))
(elmo-folder-kill-messages wl-summary-buffer-elmo-folder dels)
(wl-summary-delete-messages-on-buffer dels))
(when (and update update-unread)
(wl-folder-set-folder-updated (wl-summary-buffer-folder-name)
(list
0
- (let ((lst
+ (let ((flag-count
(wl-summary-count-unread)))
- (+ (car lst) (nth 1 lst)))
+ (or (cdr (assq 'unread flag-count))
+ 0))
(elmo-folder-length
wl-summary-buffer-elmo-folder)))
(wl-summary-update-modeline))