From: teranisi <teranisi>
Date: Mon, 19 Nov 2001 02:03:55 +0000 (+0000)
Subject: * elmo-multi.el (elmo-multi-folder-diff): Fixed problem when
X-Git-Tag: wl-2_8-root~143
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c4d1d6ce19ff7fe5aceb5bd9ef8df1d76d244603;p=elisp%2Fwanderlust.git

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