From d3f7164a228e46921c5a9acaab1c086461e209bd Mon Sep 17 00:00:00 2001
From: short <>
Date: Sat, 5 Mar 2005 08:54:10 +0000
Subject: [PATCH] &clamscan: Fixed false positive for OpenPGP mails.

---
 perlmail-accept | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/perlmail-accept b/perlmail-accept
index d9a944d..5abd067 100755
--- a/perlmail-accept
+++ b/perlmail-accept
@@ -600,7 +600,9 @@ my($cmd)=@_;
 	my $err=$?;
 	$pidcheck && $pidcheck==$pid
 			or do { cluck "waitpid for $cmd returned $pidcheck!=$pid"; return 0; };
-	$status=~s/^stdin: //;
+	$status=~s/^stdin: //mg;
+	# Prevent: LibClamAV Warning: PGP encoded attachment not scanned
+	$status=~s/^.*\bwarning:.*\n//img;
 	$status=~s/\n$//;
 	return $status if $status ne "OK" && $status;
 	return _spamchildcode $err,$status;
-- 
1.8.3.1