From 89547e4fbf1f6e5a452013500961a1b115f6cd0c Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 17 Oct 2000 04:03:23 +0000 Subject: [PATCH] 2000-10-17 Akihiro MOTOKI * elmo-msgdb.el (elmo-msgdb-search-internal-primitive): Search by extra-fields. --- elmo/ChangeLog | 5 +++++ elmo/elmo-msgdb.el | 8 +++++++- 2 files changed, 12 insertions(+), 1 deletion(-) 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 + + * elmo-msgdb.el (elmo-msgdb-search-internal-primitive): Search by + extra-fields. + 2000-10-17 Yuuichi Teranishi * 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)) -- 1.7.10.4