From 2c45d3cae0f60efd7281fe86e3a76cebab20a159 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 11 Apr 2022 17:36:26 +0200 Subject: [PATCH] Make more IPV6 domains non-suspicious in textsec * lisp/international/textsec.el (textsec--ipvx-address-p): Make more IPV6 domains non-suspicious. --- lisp/international/textsec.el | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el index 3e787909384..82eba1b5d51 100644 --- a/lisp/international/textsec.el +++ b/lisp/international/textsec.el @@ -236,15 +236,16 @@ The scripts are as defined by the Unicode Standard Annex 24 (UAX#24)." ;; This is a very relaxed pattern for IPv4 or IPv6 addresses. The ;; assumption is that any malformed address accepted by this rule ;; will be rejected by the actual address parser eventually. - (rx-let ((ipv4 (** 1 4 - (** 1 3 (in "0-9")) - (? "."))) - (ipv6 (: (** 1 7 - (** 0 4 (in "0-9a-f")) - ":") - (** 0 4 (in "0-9a-f")) - (? ":" ipv4)))) - (string-match-p (rx bos (or ipv4 ipv6 (: "[" ipv6 "]")) eos) domain))) + (let ((case-fold-search t)) + (rx-let ((ipv4 (** 1 4 + (** 1 3 (in "0-9")) + (? "."))) + (ipv6 (: (** 1 7 + (** 0 4 (in "0-9a-f")) + ":") + (** 0 4 (in "0-9a-f")) + (? ":" ipv4)))) + (string-match-p (rx bos (or ipv4 ipv6 (: "[" ipv6 "]")) eos) domain)))) (defun textsec-domain-suspicious-p (domain) "Say whether DOMAIN's name looks suspicious. -- 2.39.5