(string= s1 s2))))
(defsubst wl-score-ov-entity-get (entity index &optional extra decode)
- (elmo-message-entity-field entity index decode))
+ (elmo-message-entity-field entity (if extra (intern extra) index) decode))
(defun wl-score-string< (a1 a2)
(string-lessp (wl-score-ov-entity-get (car a1) wl-score-index)
(make-local-variable 'wl-score-alike-hashtb)
(setq wl-score-alike-hashtb (elmo-make-hash (* (length messages) 2)))
(when mime-decode
- (elmo-set-buffer-multibyte default-enable-multibyte-characters))
+ (set-buffer-multibyte default-enable-multibyte-characters))
(let (art last this alike)
(while (setq art (pop messages))
(setq this (wl-score-ov-entity-get (car art)
((and wl-summary-important-above
(> score wl-summary-important-above))
(if (wl-thread-jump-to-msg num);; force open
- (wl-summary-mark-as-important num " ")))
+ (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 ((pair
+ (let ((flag-count
(wl-summary-count-unread)))
- (+ (car pair) (cdr pair)))
+ (or (cdr (assq 'unread flag-count))
+ 0))
(elmo-folder-length
wl-summary-buffer-elmo-folder)))
(wl-summary-update-modeline))