From: teranisi <teranisi>
Date: Tue, 17 Oct 2000 04:03:23 +0000 (+0000)
Subject: 2000-10-17  Akihiro MOTOKI <motoki@da.jp.nec.com>
X-Git-Tag: wl-2_4-root~145
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=89547e4fbf1f6e5a452013500961a1b115f6cd0c;p=elisp%2Fwanderlust.git

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