emacs-jabber jabber-core.el,1.77,1.78

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

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

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

Always record session id, if we find we need to fall back to legacy authentication


Index: jabber-core.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-core.el,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -d -r1.77 -r1.78
--- jabber-core.el	11 Feb 2008 09:47:22 -0000	1.77
+++ jabber-core.el	13 Feb 2008 20:19:45 -0000	1.78
@@ -365,6 +365,8 @@
     (:stream-start
      (let ((session-id (cadr event))
 	   (stream-version (car (cddr event))))
+       (setq state-data
+	     (plist-put state-data :session-id session-id))
        ;; the stream feature is only sent if the initiating entity has
        ;; sent 1.0 in the stream header. if sasl is not supported then
        ;; we don't send 1.0 in the header and therefore we shouldn't wait
@@ -383,7 +385,7 @@
 	 (list :register-account state-data))
 	;; Legacy authentication?
 	(t
-	 (list :legacy-auth (plist-put state-data :session-id session-id))))))
+	 (list :legacy-auth state-data)))))
 
     (:stanza
      (let ((stanza (cadr event)))