|
Lines 918-924
Link Here
|
| 918 |
|
918 |
|
| 919 |
# in case the last line was huge, trim it back to around 200 chars |
919 |
# in case the last line was huge, trim it back to around 200 chars |
| 920 |
local $1; |
920 |
local $1; |
| 921 |
$str =~ s/^(.{,200}).*$/$1/gs; |
921 |
$str =~ s/^(.\{,200}).*$/$1/gs; |
| 922 |
|
922 |
|
| 923 |
# now, some tidy-ups that make things look a bit prettier |
923 |
# now, some tidy-ups that make things look a bit prettier |
| 924 |
$str =~ s/-----Original Message-----.*$//gs; |
924 |
$str =~ s/-----Original Message-----.*$//gs; |