diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-10-29 18:12:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-10-29 18:12:33 +0000 |
| commit | 019f8c1e2e5f6addd40d508e2bfcef0dc8245307 (patch) | |
| tree | ee8277751845067d5f690f4c3f0f05d42583c59d | |
| parent | 81173429eaddbb8bf5a5978dc4293f7c6d41b983 (diff) | |
| download | emacs-019f8c1e2e5f6addd40d508e2bfcef0dc8245307.tar.gz | |
(goto-address-url-regexp): Don't match `mailto'.
| -rw-r--r-- | lisp/net/goto-addr.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index 9cb91eb6c2e..47b49725563 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el @@ -102,7 +102,13 @@ But only if `goto-address-highlight-p' is also non-nil." "[-a-zA-Z0-9._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" "A regular expression probably matching an e-mail address.") -(defvar goto-address-url-regexp thing-at-point-url-regexp +(defvar goto-address-url-regexp + (concat "\\<\\(" + (mapconcat 'identity + (delete "mailto:" (copy-sequence thing-at-point-uri-schemes)) + "\\|") + "\\)" + thing-at-point-url-path-regexp) ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" ;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" ;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" |