-#!/usr/bin/perl -p
+#!/usr/bin/perl -n
-s, %OURUSER% \+ [-+/0-9a-z]* \@ (\Q%DOMAIN%\E | \Q%SLIMYDOMAIN%\E) \b
- ,%OURUSER%+?\@$1,igx
- unless m/^$/..0;
+unless (m/^$/..0) {
+ $skip= 0 unless m/^[ \t]/;
+ $skip= 1 if m/^received\s*\:/i;
+ next if $skip;
+ s, %OURUSER% \+ [-+/0-9a-z]* \@ (\Q%DOMAIN%\E | \Q%SLIMYDOMAIN%\E) \b
+ ,%OURUSER%+?\@$1,igx;
+}
s/^/> /;
+print or die $!;