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

Korjaa vastaanottajien lukeminen moniosaisesta viestistä

Browse Source 
Valitse osa, jossa on *eniten* sähköpostiosoitteita, äläkä sitä, jossa
niitä on vähiten.
This commit is contained in:
Saku Laesvuori 2023-08-11 21:54:28 +03:00
parent 13878fd796
commit 4786c1055d
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/Review.hs
View File

@ -87,7 +87,7 @@ getEmailsFromMessage = readEmails . toListOf
where isText = matchContentType "text" Nothing . view contentType where isText = matchContentType "text" Nothing . view contentType
readEmails :: [T.Text] -> [Email] readEmails :: [T.Text] -> [Email]
readEmails = fromMaybe [] . listToMaybe . sortBy (comparing length) . readEmails = fromMaybe [] . listToMaybe . reverse . sortBy (comparing length) .
map (catMaybes . map (email . encodeUtf8) . T.lines) map (catMaybes . map (email . encodeUtf8) . T.lines)
replySettings :: Mailbox -> ReplySettings replySettings :: Mailbox -> ReplySettings