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