From: hmurata <hmurata>
Date: Wed, 24 Sep 2003 11:57:12 +0000 (+0000)
Subject: * wl-score.el (wl-summary-score-update-all-lines): Follow the API
X-Git-Tag: wl-2_11_18~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4996c001b8949d9d2de8420224903b82f8469b28;p=elisp%2Fwanderlust.git

* wl-score.el (wl-summary-score-update-all-lines): Follow the API
change (wl-summary-count-unreads return a list instead of a cons
cell).
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 55b0161..a0474e5 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2003-09-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* wl-score.el (wl-summary-score-update-all-lines): Follow the API
+	change (wl-summary-count-unreads return a list instead of a cons
+	cell).
+
 2003-09-24  Tetsurou Okazaki  <okazaki@be.to>
 
 	* wl-summary.el (wl-summary-delete-messages-on-buffer): Use
diff --git a/wl/wl-score.el b/wl/wl-score.el
index 45edbef..6f07db7 100644
--- a/wl/wl-score.el
+++ b/wl/wl-score.el
@@ -1217,9 +1217,9 @@ Set `wl-score-cache' nil."
 	(wl-folder-set-folder-updated (wl-summary-buffer-folder-name)
 				      (list
 				       0
-				       (let ((pair
+				       (let ((lst
 					      (wl-summary-count-unread)))
-					 (+ (car pair) (cdr pair)))
+					 (+ (car lst) (nth 1 lst)))
 				       (elmo-folder-length
 					wl-summary-buffer-elmo-folder)))
 	(wl-summary-update-modeline))