Filter missing messages and return defaults on missing headers.
[software/mumi.git] / mumi / web / view / html.scm
index 363b97d44296bfb0d927e21f77feb12bfe13e5ee..2b8df5b08562204d6c68827cf54b6c5324d88876 100644 (file)
@@ -283,7 +283,7 @@ some examples.")
   (define id (bug-num bug))
   (define messages (patch-messages id))
   (define parties (sort (filter (compose (negate bot?) extract-email)
-                                (participants messages))
+                                (participants (filter identity messages)))
                         (lambda (a b)
                           (string< (extract-email a)
                                    (extract-email b)))))
@@ -421,7 +421,8 @@ some examples.")
                                ;; Ignore messages
                                ;; without body, and
                                ;; internal messages.
-                               (and (email-body msg)
+                               (and msg
+                                    (email-body msg)
                                     (not (internal-message? msg))))
                              messages)))
            (map (lambda (message-number msg previous-subject)