summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mumi/web/view/html.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm
index 821076c..3fb8177 100644
--- a/mumi/web/view/html.scm
+++ b/mumi/web/view/html.scm
@@ -339,7 +339,7 @@ failed to process associated messages.")
(span (@ (class "date"))
(a (@ (href ,(string-append "#" (number->string
message-number))))
- ,(date->string (date message))))))
+ ,(time->string (date message))))))
messages
(iota (length messages)))))
(define issue-details
@@ -517,11 +517,12 @@ currently disabled."))
(map extract-email parties)))))
,(string-upcase (string-take (sender-name message) 1)))
(span (@ (class "address")) ,(sender-name message))
- " wrote on "
+ " wrote "
(span (@ (class "date"))
(a (@ (href ,(string-append "#" (number->string
- message-number))))
- ,(date->string (date message)))))
+ message-number)))
+ (title ,(date->string (date message))))
+ ,(time->string (date message)))))
,@(if (string-suffix? previous-subject (subject message))
'()
`((div (@ (class "subject")) ,(subject message))))