From 36a0feb2971e6088cebb4a2fdc65862d395081ea Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 30 Dec 2015 10:11:34 +0100 Subject: [PATCH] Restrictive URL checking tweaks MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * lisp/net/eww.el (eww): Check whether the domain is restrictive instead of the string (http://македонија.icom.museum is restrictive even if each part is from a different script). --- lisp/net/eww.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/net/eww.el b/lisp/net/eww.el index ed19bea025e..e0964932d7d 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -280,7 +280,7 @@ word(s) will be searched for via `eww-search-prefix'." ;; IDNA characters. If not, transform to punycode to indicate that ;; there may be funny business going on. (let ((parsed (url-generic-parse-url url))) - (unless (puny-highly-restrictive-p (url-host parsed)) + (unless (puny-highly-restrictive-domain-p (url-host parsed)) (setf (url-host parsed) (puny-encode-domain (url-host parsed))) (setq url (url-recreate-url parsed)))) (plist-put eww-data :url url) -- 2.39.5