From 5264c086cfb13bf5233ea29c7f46e9471c0c559f Mon Sep 17 00:00:00 2001
From: Giorgio Premi <giosh94mhz@gmail.com>
Date: Thu, 28 Apr 2016 10:35:32 +0200
Subject: [PATCH] Do not deliver message with whole content unparsable

---
 mailscanner/bin/MailScanner/Message.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/mailscanner/bin/MailScanner/Message.pm b/mailscanner/bin/MailScanner/Message.pm
index 19be90b..ecc303d 100644
--- a/mailscanner/bin/MailScanner/Message.pm
+++ b/mailscanner/bin/MailScanner/Message.pm
@@ -2437,8 +2437,7 @@ sub Explode {
       if ($boundary eq "" || $boundary eq "\"\"" || $boundary =~ /\s$/) {
         my $cantparse = MailScanner::Config::LanguageValue($this,
                                                            'cantanalyze');
-        $this->{allreports}{""} .= "$mailscannername: $cantparse\n";
-        $this->{alltypes}{""} .= 'c';
+        $this->{cantparse} = 1;
         $this->{otherinfected}++;
         #print STDERR "Found error\n";
       }