X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=wl%2Fwl-score.el;h=bddb74a78b56b0c98458b332b55ba4eeb40f8116;hb=4177b3f63f8a756293f7d72b553ecc8e478147fd;hp=0016bd2cddce739972d14acd59fe5114b6d21df0;hpb=d952c6a852ed0b786977d5d77f874c0741c2046b;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-score.el b/wl/wl-score.el
index 0016bd2..bddb74a 100644
--- 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)))