+ $keepheader= 1 unless m/^[ \t]/;
+ $keepheader= 0
+ if m/^(?: received )/ix;
+ $keepheader= 'mangle'
+ if m/^(?: to
+ | from
+ | return-path
+ | reply-to
+ | errors-to
+ )/ix;
+ if ($keepheader) {
+ my $line= $_;
+ $line =~ s/\@.{0,2}/ at ../g if $keepheader eq 'mangle';
+ $message .= $line;
+ }