- Fix dot-atom expression in e-mail validation regexp (#1486808)

15 years ago · d7a5dfa26a
parent a2e81736a9
commit d7a5dfa26a
1 changed files with 1 additions and 1 deletions
--- a/program/include/main.inc
+++ b/program/include/main.inc
@ -1586,7 +1586,7 @@ function check_email($email, $dns_check=true)
  // from PEAR::Validate
  $regexp = '&^(?:
 	("\s*(?:[^"\f\n\r\t\v\b\s]+\s*)+")| 			 	#1 quoted name
-	([-\w!\#\$%\&\'*+~/^`|{}]+(?:\.[-\w!\#\$%\&\'*+~/^`|{}]+)*)) 	#2 OR dot-atom
+	([-\w!\#\$%\&\'*+~/^`|{}=]+(?:\.[-\w!\#\$%\&\'*+~/^`|{}=]+)*)) 	#2 OR dot-atom (RFC5322)
 	$&xi';

  if (!preg_match($regexp, $local_part))