diff options
| -rw-r--r-- | mumi/messages.scm | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index fb305bb..75ac3b1 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -1,6 +1,6 @@ ;;; mumi -- Mediocre, uh, mail interface ;;; Copyright © 2017, 2018, 2019, 2020, 2021 Ricardo Wurmus <rekado@elephly.net> -;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2018, 2019, 2022 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This program is free software: you can redistribute it and/or ;;; modify it under the terms of the GNU Affero General Public License @@ -250,16 +250,12 @@ PATCH-SET. If PATCH-SET is not provided, return all patches." message-numbers) "\n"))) -(define* (search-bugs query #:key (sets '()) (max 400)) - "Return a list of all bugs matching the given QUERY string. -Intersect the result with the id sets in the list SETS." - (let* ((ids (map string->number - (search query))) - (filtered (match sets - (() ids) - (_ (apply lset-intersection eq? ids sets))))) - (status-with-cache (if (> (length filtered) max) - (take filtered max) filtered)))) +(define* (search-bugs query #:key (max 400)) + "Return a list of all bugs matching the given QUERY string." + (let ((ids (map string->number + (search query)))) + (status-with-cache (if (> (length ids) max) + (take ids max) ids)))) (define (recent-bugs amount) "Return up to AMOUNT bugs with most recent activity." |