From f708ef134801dcda961f297fe6a8af2e980d8377 Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Wed, 16 Aug 2023 09:56:12 +0300
Subject: [PATCH] =?UTF-8?q?Siirr=C3=A4=20HTML-versio=20s=C3=A4hk=C3=B6post?=
 =?UTF-8?q?issa=20viimeiseksi?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Jotkin huonot sähköpostiohjelmat (ainakin Applen) eivät osaa valita sitä
vaihtoehtoa, jonka ne osaisivat näyttää, vaan käyttävät sokeasti
viimeistä vaihtoehtoa. Huonot sähköpostiohjelmat osaavat myös
todennäköisemmin näyttää HTML-version järkevästi kuin raakatekstin tai
markdownin.
---
 src/TiedoteMD/Send.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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