view: account for filter bugs which leak HTML into the repo

Ugh, apparently there's a (yet-to-be-fixed) bug in the Filter
code which caused an HTML message portion of a multipart message
to be displayed on the web UI.  Account for that and nuke it.

1 files changed, 12 insertions, 2 deletions

diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index e76d904e..b09c3ba1 100644
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -104,7 +104,12 @@ sub index_entry {
         $mime->walk_parts(sub {
                 my ($part) = @_;
                 return if $part->subparts; # walk_parts already recurses
-                my $enc = enc_for($part->content_type) || $enc_msg || $enc_utf8;
+                my $ct = $part->content_type;
+
+                # account for filter bugs...
+                return if defined $ct && $ct =~ m!\btext/[xh]+tml\b!i;
+
+                my $enc = enc_for($ct) || $enc_msg || $enc_utf8;
 
                 if ($part_nr > 0) {
                         my $fn = $part->filename;
@@ -178,7 +183,12 @@ sub multipart_text_as_html {
         $mime->walk_parts(sub {
                 my ($part) = @_;
                 return if $part->subparts; # walk_parts already recurses
-                my $enc = enc_for($part->content_type) || $enc_msg || $enc_utf8;
+                my $ct = $part->content_type;
+
+                # account for filter bugs...
+                return if defined $ct && $ct =~ m!\btext/[xh]+tml\b!i;
+
+                my $enc = enc_for($ct) || $enc_msg || $enc_utf8;
 
                 if ($part_nr > 0) {
                         my $fn = $part->filename;