bad from addres in clientSubscriptionRequest

1 files changed, 4 insertions, 1 deletions

diff --git a/xmppServer.hs b/xmppServer.hs
index 4dc52793..7c09d345 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -669,7 +669,10 @@ clientSubscriptionRequest state fail k stanza chan = do
         cdsts = ktc Map.\\ dsts
     forM_ (Map.toList cdsts) $ \(pk,con) -> do
         -- if already connected, send solicitation ...
-        let from = clientJID con client
+        -- let from = clientJID con client
+        let from = unsplitJID ( Just $ clientUser client
+                              , addrToText $ auxAddr con
+                              , Nothing )
         mb <- rewriteJIDForPeer to
         flip (maybe $ return ()) mb $ \(to',addr) -> do
         dup <- cloneStanza stanza