wgreenhouse
/
emacs-jabber
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Magnus Henoch 2007-12-09 00:55:18 +00:00 committed by Kirill A. Korinskiy
parent 0f3292d414
commit dc71abaf60
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
jabber-socks5.el
View File

@ -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))