oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

improved behavior of CS mail message filtering

Browse source
This commit is contained in:
Graham Knop 2008-04-01 14:42:42 +00:00
parent edc1c55395
commit 357b2b3c5c
4 changed files with 26 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/Workflow/Activity/GetCsMail.pm
View file

@ -82,26 +82,16 @@ sub addPost {
$text = WebGUI::HTML::filter($text, "all");
$text = WebGUI::HTML::format($text, "text");
}
else if ($part->type eq 'text/html') {
$text = WebGUI::HTML::cleanSegment($text);
}
$content .= $text;
} else {
push(@attachments, $part);
}
}
$prefix =~ s/\\/\\\\/g;
$prefix =~ s/\[/\\[/g;
$prefix =~ s/\]/\\]/g;
$prefix =~ s/\(/\\(/g;
$prefix =~ s/\)/\\)/g;
$prefix =~ s/\}/\\}/g;
$prefix =~ s/\{/\\{/g;
$prefix =~ s/\?/\\?/g;
$prefix =~ s/\./\\./g;
$prefix =~ s/\*/\\*/g;
$prefix =~ s/\+/\\+/g;
$prefix =~ s/\|/\\|/g;
$prefix =~ s/\//\\\//g;
my $title = $message->{subject};
$title =~ s/$prefix//;
$title =~ s/\Q$prefix//;
if ($title =~ m/re:/i) {
$title =~ s/re://ig;
$title = "Re: ".$title;