From db581945faaea2788abe30bffd921768e60738a9 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 10 May 2020 17:21:28 +0200 Subject: messages: Use tokenize from (mumi xapian). --- mumi/messages.scm | 2 +- mumi/xapian.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/mumi/messages.scm b/mumi/messages.scm index 1a9dbcf..37fedeb 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -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))) diff --git a/mumi/xapian.scm b/mumi/xapian.scm index 2723615..53737de 100644 --- a/mumi/xapian.scm +++ b/mumi/xapian.scm @@ -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 -- cgit v1.2.3