7 |
my $s = $search; |
my $s = $search; |
8 |
|
|
9 |
# remove re: fdw: [list] preffixes from e-mail |
# remove re: fdw: [list] preffixes from e-mail |
10 |
while ( $s =~ s/^\s*\[(?:re|fwd|fw):\s+(.+)\]\s*$/$1/ig || |
while ( $s =~ s/^\s*\[(?:re|fwd|fw)(?:\[\d+\])*:\s+(.+)\]\s*$/$1/ig || |
11 |
$s =~ s/^\s*(?:re|fwd|fw):\s+(.+?)\s*$/$1/ig || |
$s =~ s/^\s*(?:re|fwd|fw)(?:\[\d+\])*:\s+(.+?)\s*$/$1/ig || |
12 |
$s =~ s/^\[\S+\]\s*//ig || |
$s =~ s/^\[\S+\]\s*//ig || |
13 |
$s =~ s/^\[[^@]+@[\w\.]+\s*:\s+(.+)\s*\]\s*$/$1/g || |
$s =~ s/^\[[^@]+@[\w\.]+\s*:\s+(.+)\s*\]\s*$/$1/g || |
14 |
$s =~ s/\(fwd\)\s*$//ig || |
$s =~ s/\(fwd\)\s*$//ig || |
184 |
} |
} |
185 |
} ); |
} ); |
186 |
[% END %] |
[% END %] |
187 |
|
|
188 |
|
[% PERL %] |
189 |
|
$stash->set( id => sub { |
190 |
|
my ($folder,$msgid) = split(/\s+/,shift); |
191 |
|
return $msgid; |
192 |
|
} ); |
193 |
|
|
194 |
|
$stash->set( folder => sub { |
195 |
|
my ($folder,$msgid) = split(/\s+/,shift); |
196 |
|
return $folder; |
197 |
|
} ); |
198 |
|
[% END %] |