From 464d6d596a2eb16c0dc83e9deafcf20d15de5050 Mon Sep 17 00:00:00 2001 From: kaoru Date: Thu, 8 Mar 2001 09:01:40 +0000 Subject: [PATCH] * wl-score.el (wl-score-get-score-alist): Abolish `temp' key in score file. Use `target' instead. --- wl/ChangeLog | 5 +++++ wl/wl-score.el | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) 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 + + * wl-score.el (wl-score-get-score-alist): Abolish `temp' key in + score file. Use `target' instead. + 2001-03-07 TAKAHASHI Kaoru * 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 -- 1.7.10.4