From e5c0c7ad9421e78de595fc524411c40dc06a9ea8 Mon Sep 17 00:00:00 2001 From: teranisi Date: Wed, 1 May 2002 04:07:44 +0000 Subject: [PATCH] * elmo-shimbun.el (elmo-shimbun-get-headers): Bind elmo-hash-minimun-size as 63. * elmo-multi.el (elmo-multi-folder-diff): Use elmo-diff-new if elmo-diff-unread is nil. --- elmo/ChangeLog | 6 ++++++ elmo/elmo-multi.el | 4 +++- elmo/elmo-shimbun.el | 2 +- 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index f66f7be..5ec850e 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,5 +1,11 @@ 2002-05-01 Yuuichi Teranishi + * elmo-shimbun.el (elmo-shimbun-get-headers): Bind + elmo-hash-minimun-size as 63. + + * elmo-multi.el (elmo-multi-folder-diff): Use elmo-diff-new if + elmo-diff-unread is nil. + * elmo-imap4.el (elmo-folder-open): Fix. * elmo.el (elmo-message-mark): Rewrite. diff --git a/elmo/elmo-multi.el b/elmo/elmo-multi.el index 627db8c..bf636c0 100644 --- a/elmo/elmo-multi.el +++ b/elmo/elmo-multi.el @@ -319,7 +319,9 @@ numbers)))) (while flds (setq nums (elmo-folder-diff (car flds) (car num-list)) - nums (cons (elmo-diff-unread nums) (elmo-diff-all nums))) + nums (cons (or (elmo-diff-unread nums) + (elmo-diff-new nums)) + (elmo-diff-all nums))) (setq diffs (nconc diffs (list nums))) (setq count (+ 1 count)) (setq num-list (cdr num-list)) diff --git a/elmo/elmo-shimbun.el b/elmo/elmo-shimbun.el index d47230b..0668c11 100644 --- a/elmo/elmo-shimbun.el +++ b/elmo/elmo-shimbun.el @@ -192,7 +192,7 @@ update overview when message is fetched." (let* ((shimbun (elmo-shimbun-folder-shimbun-internal folder)) (key (concat (shimbun-server-internal shimbun) "." (shimbun-current-group-internal shimbun))) - (elmo-hash-minimum-size 0) + (elmo-hash-minimum-size 63) headers) ;; new headers. (setq headers -- 1.7.10.4