From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 11 Dec 2024 21:34:19 +0000 (+0100)
Subject: Add nntps and snews to browse-url heuristic
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=995935e2b9d285c2d4eb03c5e98d8cd202e0edde;p=emacs.git

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 b364e181480..55c31df989d 100644
--- 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