From 138399e684c1d14a3bcf09bbe9cdedb7610e54cf Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 11 Oct 2001 23:40:35 +0000 Subject: [PATCH] (goto-address-mail-regexp): Allow + in username. --- lisp/net/goto-addr.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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." :group 'goto-address) (defvar goto-address-mail-regexp - "[-a-zA-Z0-9._]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" + ;; Actually pretty much any char could appear in the username part. -stef + "[-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 -- 2.39.2