From: teranisi <teranisi>
Date: Fri, 29 Sep 2000 03:36:10 +0000 (+0000)
Subject: * elmo-cache.el (elmo-cache-search-all): Added argument `from-msgs'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7bd32b7c12bc4a57f9917beacdbd4302366ef149;p=elisp%2Fwanderlust.git

* elmo-cache.el (elmo-cache-search-all): Added argument `from-msgs'.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 6a74f79..ef18217 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2000-09-29  Yuuichi Teranishi  <teranisi@gohome.org>
 
+	* elmo-cache.el (elmo-cache-search-all): Added argument `from-msgs'.
+
 	* elmo2.el (elmo-generic-list-folder-unread): Rewrite.
 	(elmo-list-folder-unread): Rewrite.
 	(elmo-list-folder-important): Ditto.
diff --git a/elmo/elmo-cache.el b/elmo/elmo-cache.el
index 4f81749..9c4e9f2 100644
--- a/elmo/elmo-cache.el
+++ b/elmo/elmo-cache.el
@@ -280,10 +280,10 @@ If KBYTES is kilo bytes (This value must be float)."
 		;; not directory.
 		path))))))
 
-(defun elmo-cache-search-all (folder condition)
+(defun elmo-cache-search-all (folder condition from-msgs)
   (let* ((number-alist (elmo-msgdb-number-load
 			(elmo-msgdb-expand-path folder)))
-	 (number-list (mapcar 'car number-alist))
+	 (number-list (or from-msgs (mapcar 'car number-alist)))
 	 (num (length number-alist))
 	 cache-file
 	 ret-val
@@ -291,7 +291,8 @@ If KBYTES is kilo bytes (This value must be float)."
 	 percent i)
     (setq i 0)
     (while number-alist
-      (if (and (setq cache-file (elmo-cache-exists-p (cdr (car
+      (if (and (memq (car (car number-alist)) number-list)
+	       (setq cache-file (elmo-cache-exists-p (cdr (car
 							   number-alist))
 						     folder
 						     (car (car