--- mimedefang.pl.ori	2005-03-30 12:14:12.000000000 -0400
+++ mimedefang.pl	2005-03-30 12:15:43.000000000 -0400
@@ -2661,7 +2661,7 @@
 
     # Run bdc
     my($code, $category, $action) =
-	run_virus_scanner($Features{'Virus:BDC'} . " $path --all --mail 2>&1");
+	run_virus_scanner($Features{'Virus:BDC'} . " $path --all --mail --arc 2>&1");
     if ($action ne 'proceed') {
 	return (wantarray ? ($code, $category, $action) : $code);
     }
@@ -2686,7 +2686,7 @@
 
     # Run bdc
     my($code, $category, $action) =
-	run_virus_scanner($Features{'Virus:BDC'} . " $CWD/Work --all --mail 2>&1");
+	run_virus_scanner($Features{'Virus:BDC'} . " $CWD/Work --all --mail --arc 2>&1");
     return (wantarray ? interpret_bdc_code($code) : $code);
 }
 
@@ -2700,7 +2700,7 @@
     return ($code, 'swerr', 'tempfail') if ($code != 1);
 
     # Code is 1 -- virus found.
-    $VirusName = $1 if ($CurrentVirusScannerMessage =~ m/(?:suspected|infected)\: (\S+)\033/);
+    $VirusName = $1 if ($CurrentVirusScannerMessage =~ m/(?:suspected|infected)\: (\S+)/);
     $VirusName = "unknown-BDC-virus" if $VirusName eq "";
 
     return ($code, 'virus', 'quarantine');
