diff options
-rw-r--r-- | mumi/web/view/html.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index d9b5b6e..9d5511d 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -153,8 +153,11 @@ "Render the conversation for the given BUG." (define id (bug-num bug)) (define messages (patch-messages id)) - (define parties (filter (compose (negate bot?) extract-email) - (participants messages))) + (define parties (sort (filter (compose (negate bot?) extract-email) + (participants messages)) + (lambda (a b) + (string< (extract-email a) + (extract-email b))))) (define (show-message message) `((div (@ (class "row")) |