Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-427

Creator:  Magnus Henoch <mange@freemail.hu>

Fix searching for XEP-0065 proxy

1 files changed, 8 insertions, 5 deletions

diff --git a/jabber-socks5.el b/jabber-socks5.el
index 3f93da2..ee64033 100644
--- a/jabber-socks5.el
+++ b/jabber-socks5.el
@@ -145,11 +145,14 @@ set; the target waits for one."
 
 (define-enter-state jabber-socks5 seek-proxies (fsm state-data)
   ;; Look for items at the server.
-  (jabber-disco-get-items (plist-get state-data :jc) 
-			  nil nil
-			  (lambda (jc fsm result) 
-			    (fsm-send-sync fsm (cons :items result)))
-			  fsm)
+  (let* ((jc (plist-get state-data :jc))
+	 (server (jabber-jid-server (jabber-connection-jid jc))))
+    (jabber-disco-get-items jc
+			    server
+			    nil
+			    (lambda (jc fsm result) 
+			      (fsm-send-sync fsm (cons :items result)))
+			    fsm))
   ;; Spend no more than five seconds looking for a proxy.
   (list state-data 5))