Mercurial > emacs
changeset 46967:3b7e1c7a2739
* gnus-art.el (gnus-button-url-regexp): Use POSIX regexp if possible.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Tue, 20 Aug 2002 08:36:01 +0000 |
| parents | 47d8bf1dec03 |
| children | 8918a6341ace |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-art.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue Aug 20 07:57:01 2002 +0000 +++ b/lisp/gnus/ChangeLog Tue Aug 20 08:36:01 2002 +0000 @@ -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.
--- a/lisp/gnus/gnus-art.el Tue Aug 20 07:57:01 2002 +0000 +++ b/lisp/gnus/gnus-art.el Tue Aug 20 08:36:01 2002 +0000 @@ -4263,7 +4263,10 @@ ;;; 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)