зеркало из https://github.com/mozilla/pjs.git
remove people's signatures from summaries
This commit is contained in:
Родитель
fea881e4d1
Коммит
c05c49549a
|
@ -91,8 +91,10 @@ for my $msg (sort { $a <=> $b } $folder->message_list) {
|
||||||
$summary = $summary . $_ while (defined($_ = $IO->getline));
|
$summary = $summary . $_ while (defined($_ = $IO->getline));
|
||||||
$IO->close;
|
$IO->close;
|
||||||
if ( $entity->parts(0)->head->mime_type =~ /text\/plain/ ) {
|
if ( $entity->parts(0)->head->mime_type =~ /text\/plain/ ) {
|
||||||
$summary =~ s/</</g;
|
# line beginning with -- is a signature seperator. Delete the sig
|
||||||
$summary =~ s/>/>/g;
|
$summary =~ s/^--.*//ms;
|
||||||
|
$summary =~ s/</</mg;
|
||||||
|
$summary =~ s/>/>/mg;
|
||||||
$summary =~ s/(http:\/\/([\S])+)/<A HREF=\"$1\">$1<\/A>/mg;
|
$summary =~ s/(http:\/\/([\S])+)/<A HREF=\"$1\">$1<\/A>/mg;
|
||||||
$summary =~ s/(ftp:\/\/([\S])+)/<A HREF=\"$1\">$1<\/A>/mg;
|
$summary =~ s/(ftp:\/\/([\S])+)/<A HREF=\"$1\">$1<\/A>/mg;
|
||||||
$summary =~ s/<(([\S])+@([\S])+)>/<<A HREF=\"mailto:$1\">$1<\/A>>/mg;
|
$summary =~ s/<(([\S])+@([\S])+)>/<<A HREF=\"mailto:$1\">$1<\/A>>/mg;
|
||||||
|
|
Загрузка…
Ссылка в новой задаче