messages: Use tokenize from (mumi xapian).
authorRicardo Wurmus <rekado@elephly.net>
Sun, 10 May 2020 15:21:28 +0000 (17:21 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Sun, 10 May 2020 15:21:28 +0000 (17:21 +0200)
mumi/messages.scm
mumi/xapian.scm

index 1a9dbcf79b622d6651a23d0b50236eb54211556e..37fedeb487dbc9ece6a900ff36f0ab1417b5de1a 100644 (file)
@@ -288,4 +288,4 @@ sets that need to overlap the result set."
                 `(#:terms ,(cons (clean-term term) terms)
                   #:sets ,fs))))))
         '(#:terms () #:sets ())
-        (string-tokenize query)))
+        (tokenize query)))
index 2723615a7ed46e52befbec86e44766ae73c154d4..53737de7880c20946a308b9fc0ae0e7529b60ada 100644 (file)
@@ -30,7 +30,7 @@
   #:use-module (xapian wrap)
   #:use-module (xapian xapian)
   #:use-module (rnrs bytevectors)
-  #:export (index! index-files search))
+  #:export (index! index-files tokenize search))
 
 (define (parse-emails files)
   (n-par-map 4