diff options
| -rw-r--r-- | mumi/messages.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 75ac3b1..b3ae962 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -252,10 +252,8 @@ PATCH-SET. If PATCH-SET is not provided, return all patches." (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)))) + (status-with-cache (map string->number + (search query #:pagesize max)))) (define (recent-bugs amount) "Return up to AMOUNT bugs with most recent activity." |