From: kaoru <kaoru>
Date: Thu, 8 Mar 2001 09:01:40 +0000 (+0000)
Subject: * wl-score.el (wl-score-get-score-alist): Abolish `temp' key in
X-Git-Tag: wl-2_6-root~55
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=464d6d596a2eb16c0dc83e9deafcf20d15de5050;p=elisp%2Fwanderlust.git

* wl-score.el (wl-score-get-score-alist): Abolish `temp' key in
score file.  Use `target' instead.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 173d5e6..c49c0cb 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-08  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-score.el (wl-score-get-score-alist): Abolish `temp' key in
+	score file.  Use `target' instead.
+
 2001-03-07  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-folder.el (wl-folder-guess-mailing-list-by-folder-name):
diff --git a/wl/wl-score.el b/wl/wl-score.el
index a0d93b8..fe8bb3a 100644
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -374,13 +374,12 @@ Set `wl-score-cache' nil."
       (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))) ; 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-target-above
-	      (or target temp wl-summary-target-above))
+	      (or target wl-summary-target-above))
 	(setq wl-summary-mark-below
 	      (or mark mark-and-expunge wl-summary-mark-below))
 	(setq wl-summary-expunge-below