diff options
-rw-r--r-- | mumi/messages.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index b96f958..01fc2a7 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -190,7 +190,11 @@ result for a while." (match (mbox->emails (current-input-port)) ((email) (parse-email email)) (_ #f))))) - (mu:message-list (format #f "bugid:~a" bug-id))))))) + (sort + (mu:message-list (format #f "bugid:~a" bug-id)) + (lambda (a b) + (< (mu:date a) + (mu:date b))))))))) (define* (search-bugs query #:key (sets '()) (max 100)) "Return a list of all bugs matching the given QUERY string. |