emacs-jabber jabber-core.el,1.75,1.76

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

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