[Emacs-diffs] trunk r113545: gnus-art.el (gnus-button-url-regexp): Make it match url in which punctuation characters follow parentheses (bug#14950)

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 113545
revision-id: address@hidden
parent: address@hidden
author: Andreas Schwab <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2013-07-25 23:40:51 +0000
message:
  gnus-art.el (gnus-button-url-regexp): Make it match url in which punctuation 
characters follow parentheses (bug#14950)
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-art.el          gnusart.el-20091113204419-o5vbwnq5f7feedwu-1108

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-07-23 07:04:24 +0000
+++ b/lisp/gnus/ChangeLog       2013-07-25 23:40:51 +0000
@@ -1,3 +1,8 @@
+2013-07-25  Andreas Schwab  <address@hidden>
+
+       * gnus-art.el (gnus-button-url-regexp): Make it match url in which
+       punctuation characters follow parentheses (bug#14950).
+
 2013-07-23  Katsumi Yamaoka  <address@hidden>
 
        * gnus.el (gnus-continuum-version):

=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el     2013-07-19 14:50:21 +0000
+++ b/lisp/gnus/gnus-art.el     2013-07-25 23:40:51 +0000
@@ -7177,15 +7177,17 @@
          "\\(?:"
          ;; Match paired parentheses, e.g. in Wikipedia URLs:
          ;; http://thread.gmane.org/address@hidden
-         "[" 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.
       "\\(address@hidden&*+\\/:;.,]\\|\\w\\)+"
       "\\(address@hidden&*+\\/]\\|\\w\\)"))
    "\\)")
   "Regular expression that matches URLs."
+  :version "24.4"
   :group 'gnus-article-buttons
   :type 'regexp)