diff options
| author | Stefan Monnier | 2001-10-11 23:40:35 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-10-11 23:40:35 +0000 |
| commit | 138399e684c1d14a3bcf09bbe9cdedb7610e54cf (patch) | |
| tree | 5004d5020ae503480871d37ea1e70270af6ca89f | |
| parent | 3e5929af18d5ac7b1583cffec5e348fa9dcaa042 (diff) | |
| download | emacs-138399e684c1d14a3bcf09bbe9cdedb7610e54cf.tar.gz emacs-138399e684c1d14a3bcf09bbe9cdedb7610e54cf.zip | |
(goto-address-mail-regexp): Allow + in username.
| -rw-r--r-- | lisp/net/goto-addr.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index 61c615b4aca..9cb91eb6c2e 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el | |||
| @@ -98,7 +98,8 @@ But only if `goto-address-highlight-p' is also non-nil." | |||
| 98 | :group 'goto-address) | 98 | :group 'goto-address) |
| 99 | 99 | ||
| 100 | (defvar goto-address-mail-regexp | 100 | (defvar goto-address-mail-regexp |
| 101 | "[-a-zA-Z0-9._]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" | 101 | ;; Actually pretty much any char could appear in the username part. -stef |
| 102 | "[-a-zA-Z0-9._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" | ||
| 102 | "A regular expression probably matching an e-mail address.") | 103 | "A regular expression probably matching an e-mail address.") |
| 103 | 104 | ||
| 104 | (defvar goto-address-url-regexp thing-at-point-url-regexp | 105 | (defvar goto-address-url-regexp thing-at-point-url-regexp |