summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mumi/web/view/html.scm26
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)