* wl-score.el (wl-score-headers): Fix for the confusing macro

	`elmo-kill-buffer'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 33a27a7..0a7cb46 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-06  Kenichi OKADA      <okada@opaopa.org>
+
+       * wl-score.el (wl-score-headers): Fix for the confusing macro
+       `elmo-kill-buffer'.
+
 2000-10-05  Katsumi Yamaoka    <yamaoka@jpl.org>
 
        * 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 (file)
--- 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)))