Fix order of messages shown after selecting conversation

1 files changed, 2 insertions, 1 deletions

diff --git a/main/Main.hs b/main/Main.hs
index 4b09d3d..2737915 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -837,7 +837,8 @@ cmdSelectContext = do
         Right conv -> do
             liftIO $ updatePromptStatus term h (Just conv)
             tzone <- liftIO $ getCurrentTimeZone
-            tlines <- liftIO $ mapM (printLine term . formatMessageFT tzone) $ takeWhile messageUnread $ conversationHistory conv
+            tlines <- liftIO $ mapM (printLine term . formatMessageFT tzone) $
+                reverse $ takeWhile messageUnread $ conversationHistory conv
             var <- asks ciCurrentLinesVar
             liftIO $ modifyMVar_ var $ \_ -> return (reverse tlines)
         Left _ -> do