Zu testen: RegExp für e-mail-Syntax

[MudGuard]

Hi,

Es gibt Leute mit der Meinung, dazu sei ein mehrere Seiten langer
regulärer Ausdruck nötig - meiner ist 57 Bytes lang. Da ich ihn
aber für soooo genial halte, möchte ich ihn nicht veröffentlichen,
sondern darum bitten ihn zu testen:

<mailbox> ::= <local-part> "@" <domain>
<local-part> ::= <string> | <quoted-string>
<quoted-string> ::=  """ <qtext> """
<qtext> ::=  "" <x> | "" <x> <qtext> | <q> | <q> <qtext>
<q> ::= any one of the 128 ASCII characters except CR, LF, quote ("),
   or backslash ()

Es darf also kein " nach dem " kommen.

Dein Teil spuckt aber

""mail"@example.org
is valid

aus. Es werden also ungültige Adressen durchgelassen.

cu,
Andreas