OMS/tiedote.md
3
0
Fork 0
Code Issues 14 Pull Requests Projects Releases Wiki Activity

Siirrä HTML-versio sähköpostissa viimeiseksi

Browse Source 
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.
This commit is contained in:
Saku Laesvuori 2023-08-16 09:56:12 +03:00
parent 4786c1055d
commit f708ef1348
Signed by: slaesvuo
GPG Key ID: 257D284A2A1D3A32
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/TiedoteMD/Send.hs
View File

@ -70,8 +70,8 @@ renderMessage' subjectPrefix maybeMailID (Message {messageContent = MessageConte
set (headerFrom defaultCharsets) [Single sender] $ set (headerFrom defaultCharsets) [Single sender] $
IMF.Message (Headers []) $ Multipart Alternative boundary $ NE.fromList IMF.Message (Headers []) $ Multipart Alternative boundary $ NE.fromList
[ createTextPlainMessage plainTextMessage [ createTextPlainMessage plainTextMessage
, createTextHtmlMessage htmlMessage
, createTextMarkdownMessage markdownMessage , createTextMarkdownMessage markdownMessage
, createTextHtmlMessage htmlMessage
] ]
createTextMarkdownMessage :: T.Text -> MIMEMessage createTextMarkdownMessage :: T.Text -> MIMEMessage