Mercurial > emacs

comparison lisp/net/goto-addr.el @ 59117:7aa5e44f673f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(goto-address-mail-regexp): Allow = in username.
author Richard M. Stallman <rms@gnu.org>
date Mon, 27 Dec 2004 16:10:48 +0000
parents 92bfc3abe98f
children 109432f1fa94 95879cc1ed20
comparison
equal deleted inserted replaced
59116:dc790c155f8a 59117:7aa5e44f673f
98 :type '(choice (integer :tag "Maximum size") (const :tag "No limit" t)) 98 :type '(choice (integer :tag "Maximum size") (const :tag "No limit" t))
99 :group 'goto-address) 99 :group 'goto-address)
100 100
101 (defvar goto-address-mail-regexp 101 (defvar goto-address-mail-regexp
102 ;; Actually pretty much any char could appear in the username part. -stef 102 ;; Actually pretty much any char could appear in the username part. -stef
103 "[-a-zA-Z0-9._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+" 103 "[-a-zA-Z0-9=._+]+@\\([-a-zA-z0-9_]+\\.\\)+[a-zA-Z0-9]+"
104 "A regular expression probably matching an e-mail address.") 104 "A regular expression probably matching an e-mail address.")
105 105
106 (defvar goto-address-url-regexp 106 (defvar goto-address-url-regexp
107 (concat "\\<\\(" 107 (concat "\\<\\("
108 (mapconcat 'identity 108 (mapconcat 'identity