workaround for Google Talk's insane handling of self-directed presence

Maybe the spec allows it, but broadcasting self-directed presence info to
all buddies is just insane.

I had to bring back the IQ messages for self-pairing, while still using
directed presence for other pairing. Ugly.
This commit is contained in:
Joey Hess 2012-11-03 22:52:41 -04:00
parent 9cff286ea3
commit a6cecfcf33
6 changed files with 85 additions and 33 deletions

View file

@ -18,7 +18,7 @@ import Data.Text (Text)
import qualified Data.Text as T
genKey :: JID -> BuddyKey
genKey j = BuddyKey $ formatJID $ JID (jidNode j) (jidDomain j) Nothing
genKey j = BuddyKey $ formatJID $ baseJID j
buddyName :: JID -> Text
buddyName j = maybe (T.pack "") strNode (jidNode j)