1 files changed, 2 insertions, 2 deletions

diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs
index 477cfc51..f4a7cbab 100644
--- a/ToxToXMPP.hs
+++ b/ToxToXMPP.hs
@@ -189,13 +189,13 @@ akeyConnect announcer me them = atomically $ do
 -- friend requests.
 checkSoliciting :: PresenceState -> PublicKey -> PublicKey -> Contact -> IO [NoSpam]
 checkSoliciting presence me them contact = do
+    let theirhost = T.pack $ show (key2id them) ++ ".tox"
     xs <- getBuddiesAndSolicited presence $ \h -> do
         -- TODO: /h/ matches hostname?
-        return False
+        return $ T.toLower h == T.toLower theirhost
     return $ do
         (is_buddy,their_u,my_uid,xmpp_client_profile) <- xs
         guard $ xmpp_client_profile == "tox"
-        let theirhost = T.pack $ show (key2id them) ++ ".tox"
         NoSpamId nospam _ <- case fmap T.unpack $ their_u of
             Just ('$':_)     -> maybeToList $ readMaybe $ T.unpack $ unsplitJID (their_u,theirhost,Nothing)
             Just ('0':'x':_) -> maybeToList $ readMaybe $ T.unpack $ unsplitJID (their_u,theirhost,Nothing)