Auto-reply approval to remote peer in case a requested subscription

is already established.

1 files changed, 5 insertions, 0 deletions

diff --git a/Presence/main.hs b/Presence/main.hs
index 036d7237..303c4b05 100644
--- a/Presence/main.hs
+++ b/Presence/main.hs
@@ -287,6 +287,11 @@ instance JabberPeerSession PeerSession where
                     Offline -> MM.deleteElemIf u match jids
                     stat    -> maybe jids (\r -> MM.insert u (r,stat) jids) rsc
 
+    sendPeerMessage session msg = do
+        let cons = outGoingConnections . peer_global $ session
+        putStrLn $ "sendPeerMessage " <++> bshow msg <++> " --> "<++>bshow (peer_name session)
+        sendMessage cons msg (peer_name session)
+
     getBuddies     _ user = ConfigFiles.getBuddies user
     getSubscribers _ user = ConfigFiles.getSubscribers user