Korjaa vastaanottajien lukeminen moniosaisesta viestistä

Valitse osa, jossa on *eniten* sähköpostiosoitteita, äläkä sitä, jossa
niitä on vähiten.

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