From: teranisi <teranisi>
Date: Wed, 1 May 2002 04:07:44 +0000 (+0000)
Subject: * elmo-shimbun.el (elmo-shimbun-get-headers): Bind
X-Git-Tag: elmo-mark-root~180
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e5c0c7ad9421e78de595fc524411c40dc06a9ea8;p=elisp%2Fwanderlust.git

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