emacs-jabber jabber-util.el,2.50,2.51

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

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory sc8-pr-cvs17:/tmp/cvs-serv10375

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

Use COPY-SEQUENCE when reading password from cache


Index: jabber-util.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-util.el,v
retrieving revision 2.50
retrieving revision 2.51
diff -u -d -r2.50 -r2.51
--- jabber-util.el	29 Aug 2007 01:45:36 -0000	2.50
+++ jabber-util.el	31 Aug 2007 21:45:12 -0000	2.51
@@ -270,7 +270,8 @@
       (copy-sequence jabber-password)
     (let ((prompt (format "Jabber password for %s: " bare-jid)))
       (if (fboundp 'password-read-and-add)
-	  (password-read-and-add prompt (jabber-password-key bare-jid))
+	  (copy-sequence
+	   (password-read-and-add prompt (jabber-password-key bare-jid)))
 	(read-passwd prompt)))))
 
 (defun jabber-uncache-password (bare-jid)