X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=perlmail-accept;h=81d1bd731f5ef4085331e4323bdb56605dba14cd;hb=61092e868f2245891e6000543fbc1ed1cbe36f0d;hp=f2e12ec13f7c7ca3efb767870eaf317897283d90;hpb=33153507e6b498c5f7c6d653bb494661fa7438a3;p=PerlMail.git

diff --git a/perlmail-accept b/perlmail-accept
index f2e12ec..81d1bd7 100755
--- a/perlmail-accept
+++ b/perlmail-accept
@@ -192,6 +192,12 @@ sub body_first
 	return $first;
 }
 
+sub is_multipart
+{
+	return 0 if !$Audit->is_mime();
+	return $Audit->is_multipart();
+}
+
 sub mimehead
 {
 my($part)=@_;
@@ -512,7 +518,7 @@ sub spamassassin
 {
 my($cmd)=@_;
 
-	$cmd||="$HOME/bin/spamassassin --exit-code 1";
+	$cmd||="spamassassin --exit-code 1";
 	# spamassassin has the specified exit code if IS spam, code 0 if NOT spam
 	# See &_spamchildcode for the code 1.
 	local *CHILD;