From ded08b19077fb8b36ff3e3aba30cd3b1fda1e87b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 29 Aug 2026 10:03:37 +0200
Subject: Fix dm-bot-echo sending deplicate reply

---
 main/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'main/Main.hs')

diff --git a/main/Main.hs b/main/Main.hs
index 5d5df63..04ced9c 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -449,7 +449,7 @@ interactiveLoop st opts = withTerminal commandCompletion $ \term -> do
 
                 case optDmBotEcho opts of
                     Just prefix
-                        | not (msgFrom msg `sameIdentity` self)
+                        | new && not (msgFrom msg `sameIdentity` self)
                         -> do
                             void $ forkIO $ do
                                 res <- runExceptT $ flip runReaderT erebosHead $ sendDirectMessage (msgFrom msg) (prefix <> msgText msg)
-- 
cgit v1.2.3