diff --git a/src/TiedoteMD/Send.hs b/src/TiedoteMD/Send.hs
index 6e3ee3b..2a56a4a 100644
--- a/src/TiedoteMD/Send.hs
+++ b/src/TiedoteMD/Send.hs
@@ -70,8 +70,8 @@ renderMessage' subjectPrefix maybeMailID (Message {messageContent = MessageConte
     set (headerFrom defaultCharsets) [Single sender] $
     IMF.Message (Headers []) $ Multipart Alternative boundary $ NE.fromList
         [ createTextPlainMessage plainTextMessage
-        , createTextHtmlMessage htmlMessage
         , createTextMarkdownMessage markdownMessage
+        , createTextHtmlMessage htmlMessage
         ]
 
 createTextMarkdownMessage :: T.Text -> MIMEMessage