allows dot in the first part of email address

fperrad · Mar 29, 2009 · 1ab4aca · 1ab4aca
1 parent 073db27
commit 1ab4aca
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/parser/grammar.pg b/src/parser/grammar.pg
@@ -393,7 +393,7 @@ token AutoLinkUrl {
 }
 
 token AutoLinkEmail {
-    '<' ( <[\-A..Za..z0..9+_]>+ '@' [ <!Newline> <!_Gt> . ]+ ) '>'
+    '<' ( <[\-.A..Za..z0..9_]>+ '@' [ <!Newline> <!_Gt> . ]+ ) '>'
     {*}
 }
 

diff --git a/t/30-autolink.t b/t/30-autolink.t
@@ -28,10 +28,10 @@ OUT
 
 language_output_is( 'markdown', <<'CODE', <<'OUT', 'autolink email' );
 
-<somebbob@example.com>
+<someb.bob@example.com>
 
 CODE
-<p><a href="ma&#x69;&#x6C;&#x74;&#111;:&#x73;o&#x6D;&#101;&#x62;&#98;&#111;&#98;&#64;&#101;&#120;&#x61;&#109;&#x70;&#108;&#101;.&#x63;&#x6F;&#109;">&#x73;o&#x6D;&#101;&#x62;&#98;&#111;&#98;&#64;&#101;&#120;&#x61;&#109;&#x70;&#108;&#101;.&#x63;&#x6F;&#109;</a></p>
+<p><a href="ma&#x69;&#x6C;&#x74;&#111;:&#x73;o&#x6D;&#101;&#x62;&#46;&#98;&#111;&#98;&#64;&#101;&#x78;&#97;&#x6D;&#112;&#108;e&#x2E;&#x63;&#111;&#x6D;">&#x73;o&#x6D;&#101;&#x62;&#46;&#98;&#111;&#98;&#64;&#101;&#x78;&#97;&#x6D;&#112;&#108;e&#x2E;&#x63;&#111;&#x6D;</a></p>
 OUT