From: okada <okada>
Date: Fri, 6 Oct 2000 11:41:00 +0000 (+0000)
Subject: 	* wl-score.el (wl-score-headers): Fix for the confusing macro
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6fda65c86c2d8665dab7e5f1aa67890e37b09e49;p=elisp%2Fwanderlust.git

	* 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
--- 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
--- 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)))