diff options
| -rw-r--r-- | mumi/messages.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 1e528b3..a743893 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -199,9 +199,8 @@ result for a while." (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 (delete-duplicates - (map string->number - (search query)))) + (let* ((ids (map string->number + (search query))) (filtered (match sets (() ids) (_ (apply lset-intersection eq? ids sets))))) |