diff options
| author | Richard M. Stallman | 2002-10-29 18:12:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-10-29 18:12:33 +0000 |
| commit | 019f8c1e2e5f6addd40d508e2bfcef0dc8245307 (patch) | |
| tree | ee8277751845067d5f690f4c3f0f05d42583c59d | |
| parent | 81173429eaddbb8bf5a5978dc4293f7c6d41b983 (diff) | |
| download | emacs-019f8c1e2e5f6addd40d508e2bfcef0dc8245307.tar.gz emacs-019f8c1e2e5f6addd40d508e2bfcef0dc8245307.zip | |
(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." | |||
| 102 | "[-a-zA-Z0-9._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" | 102 | "[-a-zA-Z0-9._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" |
| 103 | "A regular expression probably matching an e-mail address.") | 103 | "A regular expression probably matching an e-mail address.") |
| 104 | 104 | ||
| 105 | (defvar goto-address-url-regexp thing-at-point-url-regexp | 105 | (defvar goto-address-url-regexp |
| 106 | (concat "\\<\\(" | ||
| 107 | (mapconcat 'identity | ||
| 108 | (delete "mailto:" (copy-sequence thing-at-point-uri-schemes)) | ||
| 109 | "\\|") | ||
| 110 | "\\)" | ||
| 111 | thing-at-point-url-path-regexp) | ||
| 106 | ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" | 112 | ;; (concat "\\b\\(s?https?\\|ftp\\|file\\|gopher\\|news\\|" |
| 107 | ;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" | 113 | ;; "telnet\\|wais\\):\\(//[-a-zA-Z0-9_.]+:" |
| 108 | ;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" | 114 | ;; "[0-9]*\\)?[-a-zA-Z0-9_=?#$@~`%&*+|\\/.,]*" |