Commit 8dab7cde authored by Stephane Glondu's avatar Stephane Glondu

Update identity regular expression

There are TLDs longer than 7 characters now...
parent e122e3b9
......@@ -730,7 +730,7 @@ let () =
(* see http://www.regular-expressions.info/email.html *)
let identity_rex = Pcre.regexp
~flags:[`CASELESS]
"^[A-Z0-9._%+-]+@[A-Z0-9.-]+\\.[A-Z]{2,7}(,[A-Z0-9._%+-]+)?$"
"^[A-Z0-9._%+-]+@[A-Z0-9.-]+\\.[A-Z]{2,}(,[A-Z0-9._%+-]+)?$"
let is_identity x =
try ignore (Pcre.pcre_exec ~rex:identity_rex x); true
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment