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