* url.el (url-retrieve-internal): Fix last change.

Fixes: debbugs:11627

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 81b61820c555b38404c651b225f3de742e51642b..6993c76d9699da6fb531d7b7c9a064ef9f874132 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2012-06-21  Chong Yidong  <cyd@gnu.org>
+
+       * url.el (url-retrieve-internal): Fix last change (Bug#11627).
+
 2012-06-13  Juanma Barranquero  <lekktu@gmail.com>
 
        * url-handlers.el (url-handler-regexp): Declare.

diff --git a/lisp/url/url.el b/lisp/url/url.el
index 6d276273c2d0c38d9199ef8b32550675d5c56b5d..999b006cf021dddf89fb866c22c8d91d714c2d77 100644 (file)
--- a/lisp/url/url.el
+++ b/lisp/url/url.el
@@ -180,9 +180,9 @@ If URL is a multibyte string, it will be encoded as utf-8 and
 URL-encoded before it's used."
   (url-do-setup)
   (url-gc-dead-buffers)
-  (if (stringp url)
-      (set-text-properties 0 (length url) nil url))
-  (setq url (url-encode-url url))
+  (when (stringp url)
+    (set-text-properties 0 (length url) nil url)
+    (setq url (url-encode-url url)))
   (if (not (vectorp url))
       (setq url (url-generic-parse-url url)))
   (if (not (functionp callback))