* elmo-multi.el (elmo-multi-folder-diff): Fixed problem when

recent value is returned from imap folder.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index af6006b..0994cd0 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2001-11-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * elmo-multi.el (elmo-multi-folder-diff): Fixed problem when
+       recent value is returned from imap folder.
+
        * elmo.el (elmo-folder-newsgroups): New generic function.
 
        * elmo-localnews.el (elmo-localnews-folder): Added `group' slot.

diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el
index 316b2db..b155020 100644 (file)
--- a/elmo/elmo-multi.el
+++ b/elmo/elmo-multi.el
@@ -309,7 +309,7 @@
        (unsync 0)
        (messages 0)
        num-list
-       diffs)
+       diffs nums)
     ;; If first time, dummy numbers is used as current number list.
     (unless numbers
       (let ((i 0)
@@ -325,9 +325,9 @@
                                      (elmo-number-set-to-number-list killed)
                                      numbers))))
     (while flds
-      (setq diffs (nconc diffs (list (elmo-folder-diff
-                                     (car flds)
-                                     (car num-list)))))
+      (setq nums (elmo-folder-diff (car flds) (car num-list))
+           nums (cons (elmo-diff-unread nums) (elmo-diff-all nums)))
+      (setq diffs (nconc diffs (list nums)))
       (setq count (+ 1 count))
       (setq num-list (cdr num-list))
       (setq flds (cdr flds)))