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