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