(url-http): Ensure that the referrer is all-ASCII

* lisp/url/url-http.el (url-http): Ensure that the referrer is all-ASCII.

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index bb3e76997a85777f9bc83629b5bfb49ebc61e108..d45bb323b12d51fde9c7332e9d0ed9d07dc086a1 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -1291,7 +1291,7 @@ The return value of this function is the retrieval buffer."
         (buffer (or retry-buffer
                     (generate-new-buffer
                       (format " *http %s:%d*" (url-host url) (url-port url)))))
-         (referer (url-http--get-referer url)))
+         (referer (url-http--encode-string (url-http--get-referer url))))
     (if (not connection)
        ;; Failed to open the connection for some reason
        (progn