[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 36a0feb 2/2: Restrictive URL checking tweaks
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 36a0feb 2/2: Restrictive URL checking tweaks |
Date: |
Wed, 30 Dec 2015 09:11:46 +0000 |
branch: master
commit 36a0feb2971e6088cebb4a2fdc65862d395081ea
Author: Lars Magne Ingebrigtsen <address@hidden>
Commit: Lars Magne Ingebrigtsen <address@hidden>
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).
---
lisp/net/eww.el | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index ed19bea..e096493 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)