From 1ad79513f78ad8d30be1eb12a169cbb1ea5f10cf Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 10 Oct 2000 00:58:26 +0000 Subject: [PATCH] * wl-summary.el (wl-summary-sync-marks): Changed argument for `elmo-list-folder-unread' and `elmo-list-folder-important'. --- wl/ChangeLog | 5 +++++ wl/wl-summary.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index c70fde1..1b7cb0a 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,8 @@ +2000-10-09 Yuuichi Teranishi + + * wl-summary.el (wl-summary-sync-marks): Changed argument for + `elmo-list-folder-unread' and `elmo-list-folder-important'. + 2000-10-08 Kenichi OKADA * wl.el (wl-check-environment): Check too many `@'. diff --git a/wl/wl-summary.el b/wl/wl-summary.el index 34f0ac4..b29e388 100644 --- a/wl/wl-summary.el +++ b/wl/wl-summary.el @@ -2055,13 +2055,15 @@ If optional argument is non-nil, checking is omitted." num-ma (length mark-alist) importants (elmo-list-folder-important wl-summary-buffer-folder-name - wl-summary-buffer-msgdb) + (elmo-msgdb-get-number-alist wl-summary-buffer-msgdb)) has-imap4 (elmo-folder-contains-type wl-summary-buffer-folder-name 'imap4) unreads (if (and has-imap4 plugged) (elmo-list-folder-unread wl-summary-buffer-folder-name - wl-summary-buffer-msgdb unread-marks))) + (elmo-msgdb-get-number-alist wl-summary-buffer-msgdb) + (elmo-msgdb-get-mark-alist wl-summary-buffer-msgdb) + unread-marks))) (while mark-alist (if (string= (cadr (car mark-alist)) wl-summary-important-mark) -- 1.7.10.4