diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-04-06 11:45:22 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-04-06 11:45:22 +0200 |
| commit | dc3650e24cd76dfc79f841e49f1d6dd3f28c515f (patch) | |
| tree | 57785057c8b4f1a3ac53a8c2dcad4b9ca36d430f | |
| parent | bc477209faae4ecc6462d15348f1e897892eb963 (diff) | |
messages: patch-messages: Sort by date.
| -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. |