Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 13:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

Restrictive URL checking tweaks

Browse source 
* 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).
This commit is contained in:
Lars Magne Ingebrigtsen 2015-12-30 10:11:34 +01:00
parent 7c343eeaac
commit 36a0feb297
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/net/eww.el
View file

@ -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)