2008-05-16 [paul] 3.4.0cvs46

[claws.git] / tools / thunderbird-filters-convertor.pl

diff --git a/tools/thunderbird-filters-convertor.pl b/tools/thunderbird-filters-convertor.pl
index e9ec30ce4938ffbea604d41429b1fc1f89158dff..d49cfea7afc6baf9888805122345319704d38786 100644 (file)
--- a/tools/thunderbird-filters-convertor.pl
+++ b/tools/thunderbird-filters-convertor.pl
@@ -359,6 +359,7 @@ sub convert_filters {
                                        $cond =~ s/\) OR$//;
                                        $cond =~ s/\) AND$//;
                                        $cond =~ s/\)"$//;
+                                       $cond =~ s/\\"/"/g;
                                        my ($cpart_one, $cpart_two, $cpart_thr) = split(/,/, $cond, 3);
                                        if ($cond) {
                                                if ($cpart_one =~ m/$exact_matches/) {
@@ -375,7 +376,7 @@ sub convert_filters {
                                                        $part_one = $claws_condition = $part_three = $part_four = "";
                                                        next;
                                                } else {
-                                                       $claws_condition = "head";
+                                                       $claws_condition = "header $cpart_one";
                                                }
 
                                                if ($cpart_two eq "doesn't contain") {