diff options
author | Magnus Henoch <mange@freemail.hu> | 2008-02-02 16:20:50 +0000 |
---|---|---|
committer | Kirill A. Korinskiy <catap@catap.ru> | 2008-02-02 16:20:50 +0000 |
commit | e13c56b73290f8e7dbd9c6d1ad26e8e1fd482d9e (patch) | |
tree | 5c46d910696657bd6d8e2941e25876048f86bf30 | |
parent | 3bec13392630dd5f18934085d104ed2f1aaf2107 (diff) |
Revision: mange@freemail.hu--2005/emacs-jabber--cvs-head--0--patch-439
Creator: Magnus Henoch <mange@freemail.hu>
Use plist-put instead of append when initiating SASL authentication
-rw-r--r-- | jabber-core.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/jabber-core.el b/jabber-core.el index bb0e6cd..830e0f9 100644 --- a/jabber-core.el +++ b/jabber-core.el @@ -510,12 +510,12 @@ With double prefix argument, specify more connection details." (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 |