[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113545: gnus-art.el (gnus-button-url-regexp): Make
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] trunk r113545: gnus-art.el (gnus-button-url-regexp): Make it match url in which punctuation characters follow parentheses (bug#14950) |
Date: |
Thu, 25 Jul 2013 23:40:56 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [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 <=