gnus-art.el (gnus-button-url-regexp): Make it match url in which punctuation characters follow parentheses (bug#14950)

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5d3de61aa91..3e7d8c992e7 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2013-07-25  Andreas Schwab  <schwab@linux-m68k.org>
+
+        * gnus-art.el (gnus-button-url-regexp): Make it match url in which
+        punctuation characters follow parentheses (bug#14950).
+
 2013-07-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
         * gnus.el (gnus-continuum-version):
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 31a108a3c98..e65b9fb99e4 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -7177,15 +7177,17 @@ groups."
           "\\(?:"
           ;; Match paired parentheses, e.g. in Wikipedia URLs:
           ;; http://thread.gmane.org/47B4E3B2.3050402@gmail.com
-          "[" chars punct "]+" "(" "[" chars punct "]+" "[" chars "]*)" "[" chars "]*"
+          "[" chars punct "]+" "(" "[" chars punct "]+" "[" chars "]*)"
+          "\\(?:" "[" chars punct "]+" "[" chars "]" "\\)?"
           "\\|"
-          "[" chars punct     "]+" "[" chars "]"
+          "[" chars punct "]+" "[" chars "]"
           "\\)"))
      (concat ;; XEmacs 21.4 doesn't support POSIX.
       "\\([-a-z0-9_=!?#$@~%&*+\\/:;.,]\\|\\w\\)+"
       "\\([-a-z0-9_=#$@~%&*+\\/]\\|\\w\\)"))
    "\\)")
   "Regular expression that matches URLs."
+  :version "24.4"
   :group 'gnus-article-buttons
   :type 'regexp)