[fix] Email: More permissive email address parser.

MLstate · Feb 15, 2012 · 41e6e11 · 41e6e11
1 parent e69e133
commit 41e6e11
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/stdlib/web/mail/email.opa b/stdlib/web/mail/email.opa
@@ -127,13 +127,11 @@ Email = {{
    * address, that is:
    *  - small and capital letters,
    *  - digits,
-   *  - characters: underscore (_), hyphen (-)
+   *  - characters: !#$%&'*+\-/=?^_`{|}~
-   * Here we are more restrictive than the RFC specification, but
+   * See: http://en.wikipedia.org/wiki/Email_address#Local_part
-   * are in accordance with common practice (for instance HotMail's
-   * requirements on email addresses).
    */
   @private
-  char = parser [A-Za-z0-9_\-];
+  char = parser [A-Za-z0-9!#$%&'*+\-/=?^_`{|}~];
 
   @private
   word = parser w=char+ -> Text.to_string(Text.ltconcat(w))