diff options
| -rw-r--r-- | main/Main.hs | 3 |
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 |