Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17:/tmp/cvs-serv19705
Modified Files:
jabber-logon.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-412
Creator: Magnus Henoch <ma...@fr...>
Don't use jabber-server in jabber-do-logon
Index: jabber-logon.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-logon.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- jabber-logon.el 14 Sep 2007 22:08:28 -0000 1.16
+++ jabber-logon.el 17 Sep 2007 12:16:35 -0000 1.17
@@ -53,7 +53,7 @@
;; If auth is still nil, user cancelled process somewhere
(if auth
- (jabber-send-iq jc jabber-server
+ (jabber-send-iq jc (plist-get (fsm-get-state-data jc) :server)
"set"
`(query ((xmlns . "jabber:iq:auth"))
(username () ,(plist-get (fsm-get-state-data jc) :username))
|
