1 files changed, 7 insertions, 0 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index 4dda1f70..3d4120fa 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -200,6 +200,13 @@ enableClientHacks "Pidgin" version replyto = do
               (InternalEnableHack SimulatedChatErrors) 
               []
               replyto
+enableClientHacks "irssi-xmpp" version replyto = do
+    wlog "Enabling hack SimulatedChatErrors for client irssi-xmpp"
+    donevar <- atomically newEmptyTMVar
+    sendReply donevar
+              (InternalEnableHack SimulatedChatErrors) 
+              []
+              replyto
 enableClientHacks _ _ _ = return ()
 
 cacheMessageId id' replyto = do