(browse-url-encode-url): Use copy-sequence.

lisp/ChangeLog

+2007-09-10  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+	* net/browse-url.el (browse-url-encode-url): Use copy-sequence.
+	Reported by Jan Dj,Ad(Brv <jan.h.d@swipnet.se>.
+
 2007-09-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* outline.el (outline-4, outline-5, outline-7):

lisp/net/browse-url.el

@@ -621,7 +621,7 @@ down (this *won't* always work)."
 
 (defun browse-url-encode-url (url)
   "Encode all `confusing' characters in URL."
-  (let ((encoded-url (copy-seq url)))
+  (let ((encoded-url (copy-sequence url)))
     (while (string-match "%" encoded-url)
       (setq encoded-url (replace-match "%25" t t encoded-url)))
     (while (string-match "[*\"()',=;? ]" encoded-url)