projects
/
claws.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2eb789a
)
fix bugs wrt path to mailbox & multiple mailboxes
author
Paul Mangan
<paul@claws-mail.org>
Sat, 6 Apr 2002 07:02:22 +0000
(07:02 +0000)
committer
Paul Mangan
<paul@claws-mail.org>
Sat, 6 Apr 2002 07:02:22 +0000
(07:02 +0000)
tools/filter_conv.pl
patch
|
blob
|
history
diff --git
a/tools/filter_conv.pl
b/tools/filter_conv.pl
index c35429cfc3460846125ba469aee6b4579d9f058c..1103d2e34afca3aecf87ba33317683e495cccce1 100644
(file)
--- a/
tools/filter_conv.pl
+++ b/
tools/filter_conv.pl
@@
-20,6
+20,21
@@
chdir;
chdir '.sylpheed' || die("You don't appear to have Sylpheed installed\n");
chdir;
chdir '.sylpheed' || die("You don't appear to have Sylpheed installed\n");
+open(FOLDERLIST, "<folderlist.xml") || die("Can't find folderlist.xml\n");
+@folderlist = <FOLDERLIST>;
+close FOLDERLIST;
+
+foreach $folderlist (@folderlist) {
+ unless ($mailbox) {
+ if ($folderlist =~ m/<folder type="mh"/) {
+ $folderlist =~ s/<folder type="mh" name="//;
+ $folderlist =~ s/" path="[A-Z0-9]+">\n//ig;
+ $folderlist =~ s/^ +//;
+ $mailbox = $folderlist;
+ }
+ }
+}
+
open (FILTERRC, "<filterrc") || die("Can't find your old filter rules\n");
@filterrc = <FILTERRC>;
close FILTERRC;
open (FILTERRC, "<filterrc") || die("Can't find your old filter rules\n");
@filterrc = <FILTERRC>;
close FILTERRC;
@@
-98,7
+113,7
@@
foreach $filterrc (@filterrc) {
if ($split_lines[8] eq "n\n") {
$WRITE_THIS .= " delete";
} elsif ($split_lines[8] eq "m\n"){
if ($split_lines[8] eq "n\n") {
$WRITE_THIS .= " delete";
} elsif ($split_lines[8] eq "m\n"){
- $WRITE_THIS .= " move \"$split_lines[5]\"";
+ $WRITE_THIS .= " move \"
\#mh/$mailbox/
$split_lines[5]\"";
}
$WRITE_THIS .= "\n";
@split_lines = "";
}
$WRITE_THIS .= "\n";
@split_lines = "";