email parsing fails

[adamdecaf]

I found a few valid emails that fail to parse.

From: https://haacked.com/archive/2007/08/21/i-knew-how-to-validate-an-email-address-until-i.aspx/

func TestIsEmail(t *testing.T) {
	emails := []string{
		`Abc\@def@example.com`,
		`Fred\ Bloggs@example.com`,
		`Joe.\\Blow@example.com`,
		`"Abc@def"@example.com`,
		`"Fred Bloggs"@example.com`,
		`customer/department=shipping@example.com`,
		`$A12345@example.com`,
		`!def!xyz%abc@example.com`,
		`_somename@example.com`,
	}
	for i := range emails {
		fmt.Printf("IsEmail(%s)=%v\n", emails[i], IsEmail(emails[i]))
	}
}

IsEmail(Abc\@def@example.com)=false
IsEmail(Fred\ Bloggs@example.com)=false
IsEmail(Joe.\\Blow@example.com)=false
IsEmail("Abc@def"@example.com)=false
IsEmail("Fred Bloggs"@example.com)=false
IsEmail(customer/department=shipping@example.com)=true
IsEmail($A12345@example.com)=true
IsEmail(!def!xyz%abc@example.com)=true
IsEmail(_somename@example.com)=true