Index: lib/Mail/SpamAssassin/PerMsgStatus.pm
===================================================================
RCS file: /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin/PerMsgStatus.pm,v
retrieving revision 1.285
diff -u -3 -p -r1.285 PerMsgStatus.pm
--- lib/Mail/SpamAssassin/PerMsgStatus.pm	25 Feb 2003 21:02:55 -0000	1.285
+++ lib/Mail/SpamAssassin/PerMsgStatus.pm	26 Feb 2003 05:13:50 -0000
@@ -1156,7 +1156,9 @@ sub get_decoded_stripped_body_text_array
       $self->{html}{ratio} = ($raw - $self->{html}{non_uri_len}) / $raw;
     } # if ($raw > 0)
     delete $self->{html_last_tag};
-  }
+
+    $text =~ s/<![^>]*>//g;
+  } # if HTML
 
   # whitespace handling (warning: small changes have large effects!)
   $text =~ s/\n+\s*\n+/\f/gs;		# double newlines => form feed