@alternates_host=(
"jabberwock.ucw.cz", # short@ucw.cz
"atrey.karlin.mff.cuni.cz", # short@atrey.karlin.mff.cuni.cz
- "k332.feld.cvut.cz", # k332.feld.cvut.cz
+ "k332.feld.cvut.cz", # short@k332.feld.cvut.cz
);
}
# max. 9 lines of .sig
s/\n-- (?:\n[^\n]*){0,9}$//gs;
# "Original Message"/"Puvodni zprava" etc. up to empty line
- s/(^|\n)[\s^\n]*-----[\w\s]*-----[\s^\n]*(?:\n[^\n]+)*\n{2,}(?:\s*[^>\s].*$)?/\n/gs;
+ # "- - - Original message: - - -" is by "Lotus Notes Release 5.0.5 September 22, 2000"
+ s/(^|\n)[\s^\n]*(?:-----[\w\s]*-----|- - - Original message: - - -)[\s^\n]*(?:\n[^\n]+)*\n{2,}(?:\s*[^>\s].*$)?/\n/gs;
# Remove "..." lines (is it used by anyone except me?)
s/^\Q...\E$/*/gm;
# quoting "> "
- s/^\s*[>][>\s]*.*$/*/gm;
+ s/^(?:\s*[[:upper:]]{0,3}>)+.*$/*/gm;
s/(?:^|\n)(?:\*\n+)+/\n*\n/gs;
# attributions
- s/^.*\b(?:wrote|writes):\s*$//gm;
+ s/^.*\b(?:wrote|writes|napsal jste):\s*$//gm;
my $body=$_;
return [$from,"($subject)$body"];