Failure notice in irssi

2 files changed, 8 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
diff --git a/xmppServer.hs b/xmppServer.hs
index 35d18e92..2476daec 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -405,6 +405,7 @@ rewriteJIDForPeer jid = do
             to' = unsplitJID (n,h',r)
         in (to',addr)
 
+-- | deliver <message/> or error stanza
 deliverMessage state fail msg = 
     case stanzaOrigin msg of
       NetworkOrigin senderk@(ClientKey {}) _ -> do