Mailing List Archive

svn commit: rev 6431 - incubator/spamassassin/trunk/lib/Mail/SpamAssassin
Author: quinlan
Date: Sun Feb 1 22:38:03 2004
New Revision: 6431

Modified:
incubator/spamassassin/trunk/lib/Mail/SpamAssassin/HTML.pm
Log:
allow HTML comment tests to be specified in html_eval rules


Modified: incubator/spamassassin/trunk/lib/Mail/SpamAssassin/HTML.pm
==============================================================================
--- incubator/spamassassin/trunk/lib/Mail/SpamAssassin/HTML.pm (original)
+++ incubator/spamassassin/trunk/lib/Mail/SpamAssassin/HTML.pm Sun Feb 1 22:38:03 2004
@@ -697,6 +697,7 @@
sub html_comment {
my ($self, $text) = @_;

+ $self->{html}{comment_text} .= "$text\n";
$self->{html}{comment_8bit} = 1 if $text =~ /[\x80-\xff]{3,}/;
$self->{html}{comment_email} = 1 if $text =~ /\S+\@\S+/;
$self->{html}{comment_egp} = 1 if $text =~ /\S+begin egp html banner\S+/;