From: kaoru <kaoru>
Date: Thu, 15 Jun 2000 06:27:28 +0000 (+0000)
Subject: * wl-score.el (wl-score-get-score-alist): Use wl-summary-target-above.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fa4e10ef4a830e8334130e3f6eab329418656e64;p=elisp%2Fwanderlust.git

* wl-score.el (wl-score-get-score-alist): Use wl-summary-target-above.
(wl-summary-score-update-all-lines): Ditto.
---

diff --git a/wl/wl-score.el b/wl/wl-score.el
index 0332224..cb9ced2 100644
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -389,12 +389,13 @@ See `wl-score-simplify-buffer-fuzzy' for details."
       (let ((mark (car (wl-score-get 'mark alist)))
 	    (expunge (car (wl-score-get 'expunge alist)))
 	    (mark-and-expunge (car (wl-score-get 'mark-and-expunge alist)))
-	    (temp (car (wl-score-get 'temp alist)))
+	    (temp (car (wl-score-get 'temp alist))) ; obsolate
+	    (target (car (wl-score-get 'target alist)))
 	    (important (car (wl-score-get 'important alist))))
 	(setq wl-summary-important-above
 	      (or important wl-summary-important-above))
-	(setq wl-summary-temp-above
-	      (or temp wl-summary-temp-above))
+	(setq wl-summary-target-above
+	      (or target temp wl-summary-target-above))
 	(setq wl-summary-mark-below
 	      (or mark mark-and-expunge wl-summary-mark-below))
 	(setq wl-summary-expunge-below
@@ -1244,8 +1245,8 @@ See `wl-score-simplify-buffer-fuzzy' for details."
 		    (> score wl-summary-important-above))
 	       (if (wl-thread-jump-to-msg num);; force open
 		   (wl-summary-mark-as-important num " ")))
-	      ((and wl-summary-temp-above
-		    (> score wl-summary-temp-above))
+	      ((and wl-summary-target-above
+		    (> score wl-summary-target-above))
 	       (if visible
 		   (wl-summary-mark-line "*"))
 	       (setq wl-summary-buffer-target-mark-list