projects
/
elisp
/
wanderlust.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* wl-vars.el (wl-message-buffer-prefetch-depth): Change default value.
[elisp/wanderlust.git]
/
wl
/
wl-score.el
diff --git
a/wl/wl-score.el
b/wl/wl-score.el
index
0016bd2
..
bddb74a
100644
(file)
--- a/
wl/wl-score.el
+++ b/
wl/wl-score.el
@@
-1225,9
+1225,9
@@
Set `wl-score-cache' nil."
(wl-push num dels))
((< score wl-summary-mark-below)
(if visible
(wl-push num dels))
((< score wl-summary-mark-below)
(if visible
- (wl-summary-mark-as-read t); opened
+ (wl-summary-mark-as-read num); opened
(setq update-unread t)
(setq update-unread t)
- (wl-summary-mark-as-read t nil nil num))) ; closed
+ (wl-summary-mark-as-read num))) ; closed
((and wl-summary-important-above
(> score wl-summary-important-above))
(if (wl-thread-jump-to-msg num);; force open
((and wl-summary-important-above
(> score wl-summary-important-above))
(if (wl-thread-jump-to-msg num);; force open
@@
-1245,15
+1245,12
@@
Set `wl-score-cache' nil."
'wl-summary-score-update-all-lines "Updating score..."
(/ (* i 100) count))))
(when dels
'wl-summary-score-update-all-lines "Updating score..."
(/ (* i 100) count))))
(when dels
- (setq mark-alist
- (elmo-msgdb-get-mark-alist (wl-summary-buffer-msgdb)))
(let ((marks dels))
(while marks
(let ((marks dels))
(while marks
- (setq mark-alist
- (elmo-msgdb-mark-set mark-alist (pop marks) nil))))
+ (elmo-msgdb-set-mark (wl-summary-buffer-msgdb)
+ (pop marks) nil)))
(elmo-folder-mark-as-read wl-summary-buffer-elmo-folder
dels)
(elmo-folder-mark-as-read wl-summary-buffer-elmo-folder
dels)
- (elmo-msgdb-set-mark-alist (wl-summary-buffer-msgdb) mark-alist)
(wl-summary-delete-messages-on-buffer dels))
(when (and update update-unread)
(let ((num-db (elmo-msgdb-get-number-alist
(wl-summary-delete-messages-on-buffer dels))
(when (and update update-unread)
(let ((num-db (elmo-msgdb-get-number-alist
@@
-1262,12
+1259,12
@@
Set `wl-score-cache' nil."
(wl-summary-buffer-msgdb))))
;; Update Folder mode
(wl-folder-set-folder-updated (wl-summary-buffer-folder-name)
(wl-summary-buffer-msgdb))))
;; Update Folder mode
(wl-folder-set-folder-updated (wl-summary-buffer-folder-name)
- (list 0
- (let ((pair
- (wl-summary-count-unread
- mark-alist)))
- (+ (car pair) (cdr pair)))
- (length num-db)))
+ (list
+ 0
+ (let ((pair
+ (wl-summary-count-unread)))
+ (+ (car pair) (cdr pair)))
+ (length num-db)))
(wl-summary-update-modeline)))
(message "Updating score...done")
dels)))
(wl-summary-update-modeline)))
(message "Updating score...done")
dels)))