From cbf136ac0505a12a6984f83e5a0887ffff1be055 Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 22 May 2005 04:06:44 +0000
Subject: [PATCH] +&is_multipart

---
 perlmail-accept | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/perlmail-accept b/perlmail-accept
index f2e12ec..a96e177 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)=@_;
-- 
1.8.3.1