1 files changed, 4 insertions, 0 deletions

diff --git a/Presence/main.hs b/Presence/main.hs
index 0eae8677..bf4809a8 100644
--- a/Presence/main.hs
+++ b/Presence/main.hs
@@ -168,6 +168,10 @@ instance JabberClientSession ClientSession where
             L.putStrLn $ "cached presence: " <++> bshow p
             action p
 
+    addSolicited s jid = do
+        user <- readIORef (unix_uid s) >>= getJabberUserForId
+        ConfigFiles.addSolicited user jid -- (L.show jid)
+
     getMyBuddies s = do
         user <- readIORef (unix_uid s) >>= getJabberUserForId
         ConfigFiles.getBuddies user