From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 11 Oct 2001 23:40:35 +0000 (+0000)
Subject: (goto-address-mail-regexp): Allow + in username.
X-Git-Tag: ttn-vms-21-2-B4~19563
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=138399e684c1d14a3bcf09bbe9cdedb7610e54cf;p=emacs.git

(goto-address-mail-regexp): Allow + in username.
---

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