messages: recent-bugs: Show most recently modified issues first.
authorRicardo Wurmus <rekado@elephly.net>
Wed, 1 Apr 2020 02:24:25 +0000 (04:24 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Wed, 1 Apr 2020 02:24:25 +0000 (04:24 +0200)
mumi/messages.scm

index a7d62dcdf7cc111dcfcb3c09de021f2ffe045265..12609349cf5172627fd67af3865593fd94019f11 100644 (file)
@@ -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)