emacs-jabber jabber-logon.el,1.16,1.17

[Magnus H. <leg...@us...>]

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