From: teranisi <teranisi>
Date: Mon, 13 Nov 2000 02:45:43 +0000 (+0000)
Subject: * elmo-internal.el (elmo-internal-search): Fix last change.
X-Git-Tag: wl-2_4_0pre2~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a0b5edfd70edf76472ea8b06ab3c9011ad66f908;p=elisp%2Fwanderlust.git

* elmo-internal.el (elmo-internal-search): Fix last change.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 840fe01..1a67298 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-13  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* elmo-internal.el (elmo-internal-search): Fix last change.
+
 2000-11-08  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-internal.el (elmo-internal-search): Rewrite.
diff --git a/elmo/elmo-internal.el b/elmo/elmo-internal.el
index ee877de..461287c 100644
--- a/elmo/elmo-internal.el
+++ b/elmo/elmo-internal.el
@@ -236,7 +236,9 @@
 	 case-fold-search)
     (setq num (length msgs))
     (while msgs
-      (if (and (setq cache-file (elmo-cache-exists-p (cdr (car loc-alist))))
+      (if (and (setq cache-file (elmo-cache-get-path (cdr (assq (car msgs)
+								loc-alist))))
+	       (file-exists-p cache-file)
 	       (elmo-file-field-condition-match cache-file
 						condition
 						(car msgs)