emacs-jabber jabber-core.el,1.72,1.73

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

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv15629

Modified Files:
	jabber-core.el 
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-428
Creator:  Magnus Henoch <ma...@fr...>

Handle :do-disconnect events in state :register-account


Index: jabber-core.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-core.el,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -d -r1.72 -r1.73
--- jabber-core.el	17 Nov 2007 11:14:52 -0000	1.72
+++ jabber-core.el	9 Dec 2007 00:55:26 -0000	1.73
@@ -450,7 +450,12 @@
       (jabber-process-stream-error (cadr event) state-data)
       (progn
 	(jabber-process-input fsm (cadr event))
-	(list :register-account state-data))))))
+	(list :register-account state-data))))
+
+    (:do-disconnect
+     (jabber-send-string fsm "</stream:stream>")
+     (list nil (plist-put state-data
+			  :disconnection-expected t)))))
 
 (define-enter-state jabber-connection :legacy-auth
   (fsm state-data)