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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index f66f7be..5ec850e 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,11 @@
 2002-05-01  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * 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 (file)
--- 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 (file)
--- 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