###############################################################################
my $normal_headers = qr/^(?:Subject|From|To|Cc)$/;
-my $extra_headers = qr/^(?:Reply-To|Sender|List-Id|X-ML-Name|X-List|X-Sequence|X-Mailer)$/;
my @new_filters = ("[global]\n");
$mode_two,
$action) = split(/\t/);
+ $value_one =~ s/\"/\\\"/g ;
+ $value_two =~ s/\"/\\\"/g ;
$action = $action eq "m" ? "move" : "delete";
$destination = $destination =~ m!^\#mh/! ?
$destination :
if ($header_one =~ m/$normal_headers/) {
$new_filter .= $predicate_one . lc($header_one) . qq( $match_type_one "$value_one");
}
- elsif ($header_one =~ m/$extra_headers/) {
+ else {
$new_filter .= $predicate_one . qq(header "$header_one" $match_type_one "$value_one");
}
if ($header_two =~ m/$normal_headers/) {
$new_filter .= qq( $op ) . $predicate_two . lc($header_two) . qq( $match_type_two "$value_two");
}
- elsif ($header_two =~ m/$extra_headers/) {
+ else {
$new_filter .= qq( $op ) . $predicate_two . qq(header "$header_two" $match_type_two "$value_two");
}
}