From c4d1d6ce19ff7fe5aceb5bd9ef8df1d76d244603 Mon Sep 17 00:00:00 2001 From: teranisi Date: Mon, 19 Nov 2001 02:03:55 +0000 Subject: [PATCH] * elmo-multi.el (elmo-multi-folder-diff): Fixed problem when recent value is returned from imap folder. --- elmo/ChangeLog | 3 +++ elmo/elmo-multi.el | 8 ++++---- 2 files changed, 7 insertions(+), 4 deletions(-) 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 + * 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))) -- 1.7.10.4