diff options
| -rw-r--r-- | main/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |