foreach my $t (split /\s+/, $status{tags}) {
$okay = 1, last if (defined $common_include{$t});
}
+ if (defined $common_include{subj}) {
+ if (index($status{subject}, $common_include{subj}) > -1) {
+ $okay = 1;
+ }
+ }
next unless ($okay);
}
if (%common_exclude) {
foreach my $t (split /\s+/, $status{tags}) {
$okay = 0, last if (defined $comon_exclude{$t});
}
+ if (defined $common_exclude{subj}) {
+ if (index($status{subject}, $common_exclude{subj}) > -1) {
+ $okay = 0;
+ }
+ }
next unless ($okay);
}
set_option("repeatmerged", $repeatmerged);
set_option("archive", $archive);
-set_option("include", { map {($_,1)} (split /[\s,]+/, $include) })
+set_option("include", { map {if (m/^(.*):(.*)$/) { ($1,$2) } else { ($_,1) }} (split /[\s,]+/, $include) })
if ($include);
-set_option("exclude", { map {($_,1)} (split /[\s,]+/, $exclude) })
+set_option("exclude", { map {if (m/^(.*):(.*)$/) { ($1,$2) } else { ($_,1) }} (split /[\s,]+/, $exclude) })
if ($exclude);
my $tag;