From 223e10691606a8d1885887fd6bb7570e1318e063 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 20 Nov 2025 21:08:44 +0100
Subject: Highlight new messages in conversation history

---
 src/Erebos/DirectMessage.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Erebos/DirectMessage.hs')

diff --git a/src/Erebos/DirectMessage.hs b/src/Erebos/DirectMessage.hs
index 91cc045..dd10d35 100644
--- a/src/Erebos/DirectMessage.hs
+++ b/src/Erebos/DirectMessage.hs
@@ -50,6 +50,9 @@ instance ConversationType DirectMessageThread DirectMessage where
     convMessageTime = msgTime
     convMessageText = Just . msgText
 
+    convMessageListSince mbSince thread =
+        threadToListHelper (msgSeen thread) (maybe S.empty (S.fromAscList . msgHead) mbSince) (msgHead thread)
+
 
 data DirectMessage = DirectMessage
     { msgFrom :: ComposedIdentity
-- 
cgit v1.2.3