X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-score.el;h=0016bd2cddce739972d14acd59fe5114b6d21df0;hb=167053919d525e30162c34e574b6452bb858211b;hp=b6bb3fe701cd80dcab118f1a5d2fab6249679649;hpb=80eb0514a723f45d04b352b663bdb8fa7895baa2;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-score.el b/wl/wl-score.el
index b6bb3fe..0016bd2 100644
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -200,7 +200,7 @@ Remove Re, Was, Fwd etc."
 
 (defun wl-score-string-index< (a1 a2)
   (string-lessp (wl-score-ov-entity-get-by-index (car a1) wl-score-index)
- 		(wl-score-ov-entity-get-by-index (car a2) wl-score-index)))
+		(wl-score-ov-entity-get-by-index (car a2) wl-score-index)))
 
 (defun wl-score-string-func< (a1 a2)
   (string-lessp (funcall wl-score-index (car a1))
@@ -341,7 +341,7 @@ Set `wl-score-cache' nil."
   (let ((files (wl-get-assoc-list-value
 		score-alist folder
 		(if (not wl-score-folder-alist-matchone) 'all-list)))
-        fl f)
+	fl f)
     (while (setq f (wl-pop files))
       (wl-append
        fl
@@ -1206,6 +1206,7 @@ Set `wl-score-cache' nil."
 	 (count (length alist))
 	 (i 0)
 	 (update-unread nil)
+	 wl-summary-unread-message-hook
 	 num score dels visible score-mark mark-alist)
     (save-excursion
       (message "Updating score...")