diff options
-rw-r--r-- | mumi/messages.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index a3d279f..bc87a4e 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -230,9 +230,11 @@ Intersect the result with the id sets in the list SETS." (define-public (process-query query) "Process the QUERY string and return a list of query terms and sets that need to overlap the result set." - ;; Mu doesn't like punctuation. Replace with spaces. + ;; Mu doesn't like punctuation. Replace with spaces. Leave hyphens + ;; and quotes. (define (clean-term term) (string-map (match-lambda + ((and (or #\" #\-) c) c) ((? punctuation? c) #\space) (c c)) term)) |