2000-10-17 Akihiro MOTOKI <motoki@da.jp.nec.com>

* elmo-msgdb.el (elmo-msgdb-search-internal-primitive): Search by
 extra-fields.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index ee902cc..0e3e69a 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2000-10-17  Akihiro MOTOKI <motoki@da.jp.nec.com>
+
+       * elmo-msgdb.el (elmo-msgdb-search-internal-primitive): Search by
+       extra-fields.
+
 2000-10-17  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * elmo-version.el (elmo-version): Up to 2.3.90.

diff --git a/elmo/elmo-msgdb.el b/elmo/elmo-msgdb.el
index 5e3fbc4..18f9eaf 100644 (file)
--- a/elmo/elmo-msgdb.el
+++ b/elmo/elmo-msgdb.el
@@ -450,7 +450,13 @@ header separator."
                          (elmo-date-make-sortable-string
                           (elmo-date-get-datevec
                            (elmo-filter-value condition))))))
-       (setq result (if (string= key "before") res (not res))))))
+       (setq result (if (string= key "before") res (not res)))))
+     ((member key elmo-msgdb-extra-fields)
+      (let ((extval (elmo-msgdb-overview-entity-get-extra-field entity key)))
+       (if (stringp extval)
+           (setq result (string-match
+                         (elmo-filter-value condition)
+                         extval))))))
     (if (eq (elmo-filter-type condition) 'unmatch)
        (setq result (not result)))
     result))