[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master ca5713d: Make url-http-create-request work with non
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master ca5713d: Make url-http-create-request work with non-ASCII data again |
Date: |
Tue, 24 Apr 2018 08:09:56 -0400 (EDT) |
branch: master
commit ca5713deffde3e4b3126e60e75c169af824365ec
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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).
---
lisp/url/url-http.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index d45bb32..0b95453 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master ca5713d: Make url-http-create-request work with non-ASCII data again,
Lars Ingebrigtsen <=