271 |
$text =~ s/(\s*--+\s*Forwarded\s+message.+\s*--+.*)$//si; |
$text =~ s/(\s*--+\s*Forwarded\s+message.+\s*--+.*)$//si; |
272 |
|
|
273 |
# remove signature |
# remove signature |
274 |
$text =~ s/[\n\r]+--\s*[\n\r]+.*$//s; |
$text =~ s/(?:^|[\n\r]+)*--\s*[\n\r]+.*$//s; |
275 |
|
$text =~ s/(?:^|[\n\r]+)*_____+[\n\r]+.*$//s; |
276 |
|
|
277 |
# compress cr/lf |
# compress cr/lf |
278 |
$text =~ s/[\n\r]+/\n/gs; |
$text =~ s/[\n\r]+/\n/gs; |
304 |
# remove signature |
# remove signature |
305 |
if ($text =~ s/([\n\r]+)(--\s*[\n\r]+.*)$//s) { |
if ($text =~ s/([\n\r]+)(--\s*[\n\r]+.*)$//s) { |
306 |
$sig = "$1#-#signature##$2##signature#-#"; |
$sig = "$1#-#signature##$2##signature#-#"; |
307 |
|
} elsif ($text =~s/(^|[\n\r]+)*(_____+[\n\r]+.*)$//s) { |
308 |
|
$sig = "$1#-#signature##$2##signature#-#"; |
309 |
} |
} |
310 |
|
|
311 |
# find quoted text |
# find quoted text |