Lines 896-911
Link Here
|
896 |
$str .= shift @{$ary}; |
896 |
$str .= shift @{$ary}; |
897 |
} |
897 |
} |
898 |
undef $ary; |
898 |
undef $ary; |
899 |
chomp ($str); $str .= " [...]\n"; |
|
|
900 |
|
899 |
|
901 |
# in case the last line was huge, trim it back to around 200 chars |
900 |
# in case the last line was huge, trim it back to around 200 chars |
902 |
local $1; |
901 |
local $1; |
903 |
$str =~ s/^(.{,200}).*$/$1/gs; |
902 |
$str =~ s/^(.{200}).+$/$1 [...]/gm; |
|
|
903 |
chomp ($str); $str .= "\n"; |
904 |
|
904 |
|
905 |
# now, some tidy-ups that make things look a bit prettier |
905 |
# now, some tidy-ups that make things look a bit prettier |
906 |
$str =~ s/-----Original Message-----.*$//gs; |
906 |
$str =~ s/-----Original Message-----.*$//gm; |
907 |
$str =~ s/This is a multi-part message in MIME format\.//gs; |
907 |
$str =~ s/This is a multi-part message in MIME format\.//gs; |
908 |
$str =~ s/[-_\*\.]{10,}//gs; |
908 |
$str =~ s/[-_*.]{10,}//gs; |
909 |
$str =~ s/\s+/ /gs; |
909 |
$str =~ s/\s+/ /gs; |
910 |
|
910 |
|
911 |
# add "Content preview:" ourselves, so that the text aligns |
911 |
# add "Content preview:" ourselves, so that the text aligns |