Mercurial > emacs

diff lisp/net/goto-addr.el @ 39790:1802ca573682

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(goto-address-mail-regexp): Allow + in username.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 11 Oct 2001 23:40:35 +0000
parents e67950065cf9
children 0560d7169eba
line wrap: on
line diff
--- a/lisp/net/goto-addr.el	Thu Oct 11 23:34:17 2001 +0000
+++ b/lisp/net/goto-addr.el	Thu Oct 11 23:40:35 2001 +0000
@@ -98,7 +98,8 @@
   :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