diff -Naur MIME-tools-5.411/lib/MIME/Parser.pm MIME-tools-5.411a-RP-Patched/lib/MIME/Parser.pm
--- MIME-tools-5.411/lib/MIME/Parser.pm	Sun Nov 12 05:55:11 2000
+++ MIME-tools-5.411a-RP-Patched/lib/MIME/Parser.pm	Thu Sep 12 17:32:04 2002
@@ -378,16 +378,17 @@
 =item extract_nested_messages OPTION
 
 I<Instance method.>
-Some MIME messages will contain a part of type C<message/rfc822>:
+Some MIME messages will contain a part of type C<message/rfc822>
+or C<message/partial>:
 literally, the text of an embedded mail/news/whatever message.  
 This option controls whether (and how) we parse that embedded message.
 
 If the OPTION is false, we treat such a message just as if it were a 
 C<text/plain> document, without attempting to decode its contents.  
 
-If the OPTION is true (the default), the body of the C<message/rfc822> 
-part is parsed by this parser, creating an entity object.  
-What happens then is determined by the actual OPTION:
+If the OPTION is true (the default), the body of the C<message/rfc822>
+or C<message/partial> part is parsed by this parser, creating an
+entity object.  What happens then is determined by the actual OPTION:
 
 =over 4
 
@@ -997,8 +998,9 @@
     if ($type eq 'multipart') {
 	$self->process_multipart($in, $rdr, $ent);
     }
-    elsif (("$type/$subtype" eq "message/rfc822") && 
-	   $self->extract_nested_messages) {
+    elsif (("$type/$subtype" eq "message/rfc822" ||
+	    ("$type/$subtype" eq "message/partial" && $head->mime_attr("content-type.number") == 1)) && 
+	    $self->extract_nested_messages) {
 	$self->debug("attempting to process a nested message");
 	$self->process_message($in, $rdr, $ent);
     }
