diff --git a/src/Handler/Utils/Mail.hs b/src/Handler/Utils/Mail.hs
index e0b13af8c..c4b9fbf7d 100644
--- a/src/Handler/Utils/Mail.hs
+++ b/src/Handler/Utils/Mail.hs
@@ -202,10 +202,13 @@ addHtmlMarkdownAlternatives' fn html' = do
--let html_meta = H.head $ H.preEscapedText "" -- this is probably not the correct way to do this
let html_meta = [shamlet|
$doctype 5
-
-
+
+
+
+
+ ^{html}
|]
- providePreferredAlternative $ NamedMailPart { disposition = InlineDisposition $ fn <> ".html", namedPart = html_meta <> html }
+ providePreferredAlternative $ NamedMailPart { disposition = InlineDisposition $ fn <> ".html", namedPart = html_meta }
whenIsJust markdown $ provideAlternative . NamedMailPart (InlineDisposition (fn <> ".txt"))
where
writerOptions = markdownWriterOptions