From 8bc75bc96817e3be7ffd508e8c06b9ec6f409531 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Fri, 21 Nov 2025 20:12:14 +0100
Subject: Show unread messages when selecting conversation

Changelog: Show unread messages when selecting conversation
---
 main/Main.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/main/Main.hs b/main/Main.hs
index d8a1f91..d7d42aa 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -737,6 +737,10 @@ cmdSelectContext = do
             when (not (roomStateSubscribe rstate)) $ do
                 chatroomSetSubscribe (head $ roomStateData rstate) True
         _ -> return ()
+    handleError (\_ -> return ()) $ do
+        conv <- getConversationFromContext ctx
+        tzone <- liftIO $ getCurrentTimeZone
+        mapM_ (cmdPutStrLn . formatMessage tzone) $ takeWhile messageUnread $ conversationHistory conv
 
 cmdSend :: Command
 cmdSend = void $ do
-- 
cgit v1.2.3