From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 20 Jan 2022 09:10:01 +0000 (+0100)
Subject: Tweak textsec-link-suspicious-p
X-Git-Tag: emacs-29.0.90~2911
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37e2304f98fac44fd146ea34c499764a95a9bb6e;p=emacs.git

Tweak textsec-link-suspicious-p

* lisp/international/textsec.el (textsec-link-suspicious-p): Don't
mark dates as suspicious.
---

diff --git a/lisp/international/textsec.el b/lisp/international/textsec.el
index ad3b59c3154..ba39c44e857 100644
--- a/lisp/international/textsec.el
+++ b/lisp/international/textsec.el
@@ -398,9 +398,13 @@ when the link text looks like an URL itself, but doesn't lead to
 the same domain as the URL."
   (let* ((url (car link))
          (text (string-trim (cdr link)))
-         (text-bits (seq-filter (lambda (bit)
-                                  (string-match-p "\\`[^.]+\\.[^.]+.*\\'" bit))
-                                (split-string text))))
+         (text-bits (seq-filter
+                     (lambda (bit)
+                       (and (string-match-p "\\`[^.]+\\.[^.]+.*\\'" bit)
+                            ;; All-numerical texts are probably not
+                            ;; suspicious (but what about IP addresses?).
+                            (not (string-match-p "\\`[0-9.]+\\'" bit))))
+                     (split-string text))))
     (when text-bits
       (setq text-bits (seq-map (lambda (string)
                                  (if (not (string-match-p "\\`[^:]+:" string))