Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv15362
Modified Files:
jabber-core.el
Log Message:
Revision: ma...@fr...--2005/emacs-jabber--cvs-head--0--patch-439
Creator: Magnus Henoch <ma...@fr...>
Use plist-put instead of append when initiating SASL authentication
Index: jabber-core.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-core.el,v
retrieving revision 1.75
retrieving revision 1.76
diff -u -d -r1.75 -r1.76
--- jabber-core.el 13 Jan 2008 18:05:20 -0000 1.75
+++ jabber-core.el 2 Feb 2008 16:20:50 -0000 1.76
@@ -510,12 +510,12 @@
(define-enter-state jabber-connection :sasl-auth
(fsm state-data)
(let ((new-state-data
- (append state-data
- (list :sasl-data
- (jabber-sasl-start-auth
- fsm
- (plist-get state-data
- :stream-features))))))
+ (plist-put state-data
+ :sasl-data
+ (jabber-sasl-start-auth
+ fsm
+ (plist-get state-data
+ :stream-features)))))
(list new-state-data nil)))
(define-state jabber-connection :sasl-auth
|
