# * This file is free software; you can redistribute it and/or modify it
# * under the terms of the GNU General Public License as published by
# * This file is free software; you can redistribute it and/or modify it
# * under the terms of the GNU General Public License as published by
# * (at your option) any later version.
# *
# * This program is distributed in the hope that it will be useful, but
# * (at your option) any later version.
# *
# * This program is distributed in the hope that it will be useful, but
# * along with this program; if not, write to the Free Software
# * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
# *
# * along with this program; if not, write to the Free Software
# * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
# *
-my $config_dir = `sylpheed-claws --config-dir` or die("ERROR:
- You don't appear to have Sylpheed-Claws installed\n");
+my $config_dir = `claws-mail --config-dir` or die("ERROR:
+ You don't appear to have Claws Mail installed\n");
- Sylpheed-Claws config directory not found [~/$config_dir]
- You need to run Sylpheed-Claws once, quit it, and then rerun this script\n");
+ Claws Mail config directory not found [~/$config_dir]
+ You need to run Claws Mail once, quit it, and then rerun this script\n");
my @conditions = ('match-header','match-to-or-cc','match-any-header',
'match-body-text','command-test','size','age');
my @conditions = ('match-header','match-to-or-cc','match-any-header',
'match-body-text','command-test','size','age');
-my @actions = ('move','copy','not-receive','delete','mark','color-label',
- 'mark-as-read','exec','stop-eval');
+my @actions = ('copy','not-receive','mark','color-label','mark-as-read',
+ 'exec','stop-eval','move','delete');
my $standard_headers = qr/^(?:Subject|From|To|Cc)$/;
my $negative_matches = qr/^(?:not-contain|is-not|not-regex)$/;
my $standard_headers = qr/^(?:Subject|From|To|Cc)$/;
my $negative_matches = qr/^(?:not-contain|is-not|not-regex)$/;
} elsif ($condition eq "match-to-or-cc") {
$new_filter .= "to_or_cc ";
} elsif ($condition eq "match-body-text") {
} elsif ($condition eq "match-to-or-cc") {
$new_filter .= "to_or_cc ";
} elsif ($condition eq "match-body-text") {