From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 24 Apr 2018 12:09:41 +0000 (+0200)
Subject: Make url-http-create-request work with non-ASCII data again
X-Git-Tag: emacs-27.0.90~5104
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca5713deffde3e4b3126e60e75c169af824365ec;p=emacs.git

Make url-http-create-request work with non-ASCII data again

* lisp/url/url-http.el (url-http-create-request): Ensure that the
entire request string is unibyte (bug#31248).
---

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index d45bb323b12..0b95453b300 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -306,7 +306,7 @@ as the Referer-header (subject to `url-privacy-level'."
 					  (and (boundp 'proxy-info)
 					       proxy-info)
 					  url-http-target-url) nil 'any nil)))
-         (ref-url url-http-referer))
+         (ref-url (url-http--encode-string url-http-referer)))
     (if (equal "" real-fname)
 	(setq real-fname "/"))
     (setq no-cache (and no-cache (string-match "no-cache" no-cache)))
@@ -355,9 +355,11 @@ as the Referer-header (subject to `url-privacy-level'."
                      (url-scheme-get-property
                       (url-type url-http-target-url) 'default-port))
                  (format
-                  "Host: %s:%d\r\n" (puny-encode-domain host)
+                  "Host: %s:%d\r\n" (url-http--encode-string
+                                     (puny-encode-domain host))
                   (url-port url-http-target-url))
-               (format "Host: %s\r\n" (puny-encode-domain host)))
+               (format "Host: %s\r\n"
+                       (url-http--encode-string (puny-encode-domain host))))
              ;; Who its from
              (if url-personal-mail-address
                  (concat