Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-427
Creator: Magnus Henoch <mange@freemail.hu> Fix searching for XEP-0065 proxy
This commit is contained in:
parent
0f3292d414
commit
dc71abaf60
|
@ -145,11 +145,14 @@ set; the target waits for one."
|
||||||
|
|
||||||
(define-enter-state jabber-socks5 seek-proxies (fsm state-data)
|
(define-enter-state jabber-socks5 seek-proxies (fsm state-data)
|
||||||
;; Look for items at the server.
|
;; Look for items at the server.
|
||||||
(jabber-disco-get-items (plist-get state-data :jc)
|
(let* ((jc (plist-get state-data :jc))
|
||||||
nil nil
|
(server (jabber-jid-server (jabber-connection-jid jc))))
|
||||||
(lambda (jc fsm result)
|
(jabber-disco-get-items jc
|
||||||
(fsm-send-sync fsm (cons :items result)))
|
server
|
||||||
fsm)
|
nil
|
||||||
|
(lambda (jc fsm result)
|
||||||
|
(fsm-send-sync fsm (cons :items result)))
|
||||||
|
fsm))
|
||||||
;; Spend no more than five seconds looking for a proxy.
|
;; Spend no more than five seconds looking for a proxy.
|
||||||
(list state-data 5))
|
(list state-data 5))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user