From: teranisi <teranisi>
Date: Tue, 10 Oct 2000 00:58:26 +0000 (+0000)
Subject: * wl-summary.el (wl-summary-sync-marks): Changed argument for
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1ad79513f78ad8d30be1eb12a169cbb1ea5f10cf;p=elisp%2Fwanderlust.git

* wl-summary.el (wl-summary-sync-marks): Changed argument for
  `elmo-list-folder-unread' and `elmo-list-folder-important'.
---

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  <teranisi@gohome.org>
+
+	* wl-summary.el (wl-summary-sync-marks): Changed argument for
+	`elmo-list-folder-unread' and `elmo-list-folder-important'.
+
 2000-10-08  Kenichi OKADA	<okada@opaopa.org>
 
 	* 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)