diff options
| -rw-r--r-- | mumi/web/view/html.scm | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index a8dcde2..c297366 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -319,7 +319,13 @@ failed to process associated messages.") (define* (issue-page bug #:optional flash-message) "Render the conversation for the given BUG." (define id (bug-num bug)) - (define messages (issue-messages id)) + (define messages + (filter (lambda (msg) + ;; Ignore messages without body, and internal messages. + (and msg + (email-body msg) + (not (internal-message? msg)))) + (issue-messages id))) (define parties (sort (filter (compose (negate bot?) extract-email) (participants (filter identity messages))) (lambda (a b) @@ -574,19 +580,11 @@ currently disabled.")) (div (@ (class "row")) (div (@ (class "conversation col-12")) - ,(let ((msgs (filter (lambda (msg) - ;; Ignore messages - ;; without body, and - ;; internal messages. - (and msg - (email-body msg) - (not (internal-message? msg)))) - messages))) - (map show-message - (iota (length msgs)) - msgs - (cons (bug-subject* bug) - (map subject msgs)))) + ,(map show-message + (iota (length messages)) + messages + (cons (bug-subject* bug) + (map subject messages))) ,comment-box))))))) (define (list-of-bugs bugs) |