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

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 840fe01..1a67298 100644 (file)
--- 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 (file)
--- 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)