view: Sort participants by email.

diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm
index d9b5b6e4c8f7c8345e4ae0f770fca81a29abd364..9d5511d934bfca200f87deb8398ea662aac39c8b 100644 (file)
--- 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"))