diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2018-09-03 16:01:57 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2018-09-03 16:01:57 +0200 |
commit | ce4d9aa73c9afc670fc9aaadb5c7761cfc4ecc6a (patch) | |
tree | 5f14a691f5b6af845f6d379b0c9b69840a2fdfbb | |
parent | b582203477c7587cba3d8df079c31cf795f470bc (diff) |
recent-bugs: Avoid out of bounds error.
-rw-r--r-- | mumi/messages.scm | 9 |
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) |