From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Tue, 20 Aug 2002 08:36:01 +0000 (+0000)
Subject: * gnus-art.el (gnus-button-url-regexp): Use POSIX regexp if possible.
X-Git-Tag: ttn-vms-21-2-B4~13623
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0076a86e2560e9cbe26f7db4373d9f3c673a23d0;p=emacs.git

* gnus-art.el (gnus-button-url-regexp): Use POSIX regexp if possible.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index b028c6ffb9f..f24be89a850 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2002-08-20  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+	* gnus-art.el (gnus-button-url-regexp): Use POSIX regexp if possible.
+
 	* nnmh.el (nnmh-request-list-1): Use %.0f instead of %d to
 	avoid arithmetic errors.
 
diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 8efd757b9bc..8201993c7f8 100644
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -4263,7 +4263,10 @@ groups."
 
 ;;; Internal Variables:
 
-(defcustom gnus-button-url-regexp "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)\\)"
+(defcustom gnus-button-url-regexp 
+  (if (string-match "[[:digit:]]" "1") ;; support POSIX?
+      "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?[-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,[:word:]]+[-a-zA-Z0-9_=#$@~`%&*+|\\/[:word:]]\\)"
+    "\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-zA-Z0-9_.]+:[0-9]*\\)?\\([-a-zA-Z0-9_=!?#$@~`%&*+|\\/:;.,]\\|\\w\\)+\\([-a-zA-Z0-9_=#$@~`%&*+|\\/]\\|\\w\\)\\)")
   "Regular expression that matches URLs."
   :group 'gnus-article-buttons
   :type 'regexp)