* 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-summary-mark-as-read t); opened
+                  (wl-summary-mark-as-read num); opened
                 (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
@@ -1245,15 +1245,12 @@ Set `wl-score-cache' nil."
           '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
-           (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-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
@@ -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)
-                                       (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)))