From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Wed, 30 Dec 2015 09:11:34 +0000 (+0100)
Subject: Restrictive URL checking tweaks
X-Git-Tag: emacs-26.0.90~2827^2~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36a0feb2971e6088cebb4a2fdc65862d395081ea;p=emacs.git

Restrictive URL checking tweaks

* 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).
---

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)