summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2020-05-10 08:30:09 +0200
committerRicardo Wurmus <rekado@elephly.net>2020-05-10 08:30:09 +0200
commita2db057350751f42d80eb0a93ae29ad550b1f7d0 (patch)
tree526e238f23ee399a26c03dcd950697a7a698fbc6
parenta26b7bcaa428407dd834cfa5b29429b003b1c3b4 (diff)
xapian: Allow boolean search without capitalization, allow wildcards.
-rw-r--r--mumi/xapian.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/mumi/xapian.scm b/mumi/xapian.scm
index cc5997d..2723615 100644
--- a/mumi/xapian.scm
+++ b/mumi/xapian.scm
@@ -201,7 +201,12 @@ messages and index their contents in the Xapian database at DBPATH."
prefixes)
(QueryParser-add-rangeprocessor queryparser date-range-processor)
(QueryParser-add-rangeprocessor queryparser mdate-range-processor)
- (let ((query (QueryParser-parse-query queryparser querystring)))
+ (let ((query (QueryParser-parse-query queryparser querystring
+ (logior (QueryParser-FLAG-BOOLEAN)
+ (QueryParser-FLAG-PHRASE)
+ (QueryParser-FLAG-LOVEHATE)
+ (QueryParser-FLAG-BOOLEAN-ANY-CASE)
+ (QueryParser-FLAG-WILDCARD)))))
(delete-QueryParser queryparser)
query)))