From 4996c001b8949d9d2de8420224903b82f8469b28 Mon Sep 17 00:00:00 2001 From: hmurata Date: Wed, 24 Sep 2003 11:57:12 +0000 Subject: [PATCH] * 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). --- wl/ChangeLog | 6 ++++++ wl/wl-score.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) 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 + + * 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 * 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)) -- 1.7.10.4