From 6fda65c86c2d8665dab7e5f1aa67890e37b09e49 Mon Sep 17 00:00:00 2001 From: okada Date: Fri, 6 Oct 2000 11:41:00 +0000 Subject: [PATCH] * wl-score.el (wl-score-headers): Fix for the confusing macro `elmo-kill-buffer'. --- wl/ChangeLog | 5 +++++ wl/wl-score.el | 7 +++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 33a27a7..0a7cb46 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2000-10-06 Kenichi OKADA + + * wl-score.el (wl-score-headers): Fix for the confusing macro + `elmo-kill-buffer'. + 2000-10-05 Katsumi Yamaoka * wl-summary.el: Don't use the 3rd argument of `require' because diff --git a/wl/wl-score.el b/wl/wl-score.el index d7dfd70..ff6ff78 100644 --- a/wl/wl-score.el +++ b/wl/wl-score.el @@ -464,10 +464,9 @@ See `wl-score-simplify-buffer-fuzzy' for details." (setq wl-scores-messages (cdr wl-scores-messages)))) (message "Scoring...done") ;; Remove buffers. - (let ((buffers wl-score-header-buffer-list)) - (while buffers - (elmo-kill-buffer (pop buffers)))) - (setq wl-score-header-buffer-list nil))) + (let (buffer) + (while (setq buffer (pop wl-score-header-buffer-list)) + (elmo-kill-buffer buffer))))) (defun wl-score-integer (scores header now expire) (let ((wl-score-index (nth 2 (assoc header wl-score-header-index))) -- 1.7.10.4