spamassassin package is now assumed system-wide.

[PerlMail.git] / perlmail-accept

diff --git a/perlmail-accept b/perlmail-accept
index f2e12ec..81d1bd7 100755 (executable)
--- 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;