diff options
| -rw-r--r-- | mumi/web/view/html.scm | 9 |
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)))) |