From 4786c1055d5923edc0d3f21d21b9cf6985d6b773 Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Fri, 11 Aug 2023 21:54:28 +0300
Subject: [PATCH] =?UTF-8?q?Korjaa=20vastaanottajien=20lukeminen=20moniosai?=
 =?UTF-8?q?sesta=20viestist=C3=A4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Valitse osa, jossa on *eniten* sähköpostiosoitteita, äläkä sitä, jossa
niitä on vähiten.
---
 src/TiedoteMD/Review.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/TiedoteMD/Review.hs b/src/TiedoteMD/Review.hs
index 512e47b..df494bd 100644
--- a/src/TiedoteMD/Review.hs
+++ b/src/TiedoteMD/Review.hs
@@ -87,7 +87,7 @@ getEmailsFromMessage = readEmails . toListOf
     where isText = matchContentType "text" Nothing . view contentType
 
 readEmails :: [T.Text] -> [Email]
-readEmails = fromMaybe [] . listToMaybe . sortBy (comparing length) .
+readEmails = fromMaybe [] . listToMaybe . reverse . sortBy (comparing length) .
     map (catMaybes . map (email . encodeUtf8) . T.lines)
 
 replySettings :: Mailbox -> ReplySettings