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 ad3b59c3154b9a92ff00d8065a920db070887829..ba39c44e857785cfe71011d2fc2b771e189d4824 100644 (file)
--- 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))