emacs-jabber jabber-sasl.el,2.14,2.15

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

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

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

Copy stored password for SASL authentication


Index: jabber-sasl.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-sasl.el,v
retrieving revision 2.14
retrieving revision 2.15
diff -u -d -r2.14 -r2.15
--- jabber-sasl.el	2 Nov 2007 13:25:07 -0000	2.14
+++ jabber-sasl.el	18 Nov 2007 21:04:50 -0000	2.15
@@ -86,7 +86,7 @@
   (lexical-let ((password (plist-get (fsm-get-state-data jc) :password))
 		(bare-jid (jabber-connection-bare-jid jc)))
     (if password
-	(lambda (prompt) password)
+	(lambda (prompt) (copy-sequence password))
       (lambda (prompt) (jabber-read-password bare-jid)))))
 
 (defun jabber-sasl-process-input (jc xml-data sasl-data)