git://git.jankratochvil.net
/
PerlMail.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cosmetic: @alternates_host: k332.feld.cvut.cz: Fixed missing <short@>
[PerlMail.git]
/
My-Audit.pm
diff --git
a/My-Audit.pm
b/My-Audit.pm
index
6375a0c
..
15416e6
100644
(file)
--- a/
My-Audit.pm
+++ b/
My-Audit.pm
@@
-22,7
+22,7
@@
sub audit_init
@alternates_host=(
"jabberwock.ucw.cz", # short@ucw.cz
"atrey.karlin.mff.cuni.cz", # short@atrey.karlin.mff.cuni.cz
@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
);
}
);
}
@@
-203,10
+203,10
@@
my(%args)=@_;
# Remove "..." lines (is it used by anyone except me?)
s/^\Q...\E$/*/gm;
# quoting "> "
# 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/(?:^|\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"];
my $body=$_;
return [$from,"($subject)$body"];