Add nntps and snews to browse-url heuristic

* lisp/net/browse-url.el (browse-url-button-regexp): Support "nntps" and
"snews" schemes.

(cherry picked from commit d181afa5d96e66cbedf2d1a5e7ff3235222a92f1)

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index b364e181480021c8edb764c98311627ddbdc9a24..55c31df989d5e7da90ad20ed12903646866fe7c4 100644 (file)
--- a/lisp/net/browse-url.el
+++ b/lisp/net/browse-url.el
@@ -236,7 +236,7 @@ be used instead."
 (defcustom browse-url-button-regexp
   (concat
    "\\b\\(\\(www\\.\\|\\(s?https?\\|ftps?\\|file\\|gophers?\\|gemini\\|"
-   "nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)"
+   "nntps?\\|s?news\\|telnet\\|wais\\|mailto\\|info\\):\\)"
    "\\(//[-a-z0-9_.]+:[0-9]*\\)?"
    (let ((chars "-a-z0-9_=#$@~%&*+\\/[:word:]")
         (punct "!?:;.,"))
@@ -251,7 +251,7 @@ be used instead."
       "\\)"))
    "\\)")
   "Regular expression that matches URLs."
-  :version "27.1"
+  :version "31.1"
   :type 'regexp)
 
 (defcustom browse-url-browser-display nil