xmpp: Re-enable XA flag, since disabling it did not turn out to help with the problems Google Talk has with not always sending presence messages to clients.
This commit is contained in:
parent
55f20ae099
commit
db2fe522ba
4 changed files with 15 additions and 7 deletions
|
@ -179,16 +179,17 @@ relayNetMessage :: JID -> Assistant (XMPP ())
|
|||
relayNetMessage selfjid = do
|
||||
msg <- waitNetMessage
|
||||
debug ["sending:", show $ sanitizeNetMessage msg]
|
||||
handleImportant msg
|
||||
convert msg
|
||||
a1 <- handleImportant msg
|
||||
a2 <- convert msg
|
||||
return (a1 >> a2)
|
||||
where
|
||||
handleImportant msg = case parseJID =<< isImportantNetMessage msg of
|
||||
Just tojid
|
||||
| tojid == baseJID tojid -> do
|
||||
putStanza presenceQuery
|
||||
storeImportantNetMessage msg (formatJID tojid) $
|
||||
\c -> (baseJID <$> parseJID c) == Just tojid
|
||||
_ -> noop
|
||||
return $ putStanza presenceQuery
|
||||
_ -> return noop
|
||||
convert (Pushing c pushstage) = withOtherClient selfjid c $ \tojid -> do
|
||||
if tojid == baseJID tojid
|
||||
then do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue