From: short <>
Date: Sun, 13 Oct 2002 17:37:27 +0000 (+0000)
Subject: &audit_sms: Stripping improved
X-Git-Tag: bp_lace~83
X-Git-Url: https://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=7e856e92b7199ad1d923b76b8f6a42c0660b67ae

&audit_sms: Stripping improved
 - "[[:upper:]]{0,3}>" included, bastards :-(((
---

diff --git a/My-Audit.pm b/My-Audit.pm
index 6375a0c..bd8de88 100644
--- a/My-Audit.pm
+++ b/My-Audit.pm
@@ -203,10 +203,10 @@ my(%args)=@_;
 	# 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"];