From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 16 Apr 2022 15:02:01 +0000 (+0200)
Subject: Further IDNA/proxy url fixes
X-Git-Tag: emacs-29.0.90~1931^2~519
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37b11e5f169f03cc5c8ee63b797b848dabd8f0e8;p=emacs.git

Further IDNA/proxy url fixes

* lisp/url/url-http.el (url-http-create-request): Puny-encode
domains (bug#54921).
---

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 96a47429569..b5bcd123c73 100644
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -332,7 +332,10 @@ Use `url-http-referer' as the Referer-header (subject to `url-privacy-level')."
               (if (and using-proxy
                        ;; Bug#35969.
                        (not (equal "https" (url-type url-http-target-url))))
-                  (url-recreate-url url-http-target-url) real-fname))
+                  (let ((url (copy-sequence url-http-target-url)))
+                    (setf (url-host url) (puny-encode-domain (url-host url)))
+                    (url-recreate-url url))
+                real-fname))
              " HTTP/" url-http-version "\r\n"
              ;; Version of MIME we speak
              "MIME-Version: 1.0\r\n"