diff options
-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) |