stump/etc/sanitise_and_quote_email.INO

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