stump/etc/sanitise_and_quote_email.INO

   1 #!/usr/bin/perl -p
   2
   3 s, %OURUSER% \+ [-+/0-9a-z]* \@ (\Q%DOMAIN%\E | \Q%SLIMYDOMAIN%\E) \b
   4                  ,%OURUSER%+?\@$1,igx
   5         unless m/^$/..0;
   6
   7 s/^/> /;