for ($from, $subject) {
tr/\x00-\x1f\x80-\xff/ /;
}
- print("\r");
- print(' ' x $COLUMNS);
printf("\r\%-${nf}s \%${nm}d \%-${nF}s \%s\n",
substr($mhfolder, 0, $nf), substr($msgnum, 0, $nm),
substr($from, 0, $nF),
$hook->(\%batons, \%headers, $mhfolder, $msgnum);
}
- print("\r");
printf(" \%${len}d SPAM \%${len}d saved \%${len}d/%1d",
$spam, $saved, $spam + $saved, $msgcount);