recent-bugs: Avoid out of bounds error.

1 files changed, 5 insertions, 4 deletions

diff --git a/mumi/messages.scm b/mumi/messages.scm
index 5110de9..5a14f6a 100644
--- a/mumi/messages.scm
+++ b/mumi/messages.scm
@@ -325,10 +325,11 @@ of message parts."
                                             (one-month
                                              (make-time time-duration 0 (* 60 60 24 30))))
                                         (time-second (subtract-duration this-hour one-month)))))))
-         (ids (take (delete-duplicates
-                     (filter-map (lambda (item)
-                                   (assoc-ref item "id"))
-                                 matches)) amount)))
+         (unique (delete-duplicates
+                  (filter-map (lambda (item)
+                                (assoc-ref item "id"))
+                              matches)))
+         (ids (take unique (min amount (length unique)))))
     (soap-invoke* (%config 'debbugs) get-status ids)))
 
 (define (ago unit amount)