diff options
-rw-r--r-- | mumi/messages.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index a7d62dc..1260934 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -220,10 +220,13 @@ Interset the result with the id sets in the list SETS." (define (recent-bugs amount) "Return up to AMOUNT bugs with most recent activity." (let* ((recent-ids - (delete-duplicates - (map (compose string->number mu:bugid) - (mu:message-list (string-append "date:1m.."))))) - (ids (take recent-ids (min amount (length recent-ids))))) + (sort + (delete-duplicates + (map (compose string->number mu:bugid) + (mu:message-list (string-append "date:1m..")))) + <)) + (ids (take (reverse recent-ids) + (min amount (length recent-ids))))) (status-with-cache ids))) (define (easy-bugs) |