diff options
Diffstat (limited to 'mail/p5-MIME-Tools/files/patch-Parser.pm')
-rw-r--r-- | mail/p5-MIME-Tools/files/patch-Parser.pm | 75 |
1 files changed, 75 insertions, 0 deletions
diff --git a/mail/p5-MIME-Tools/files/patch-Parser.pm b/mail/p5-MIME-Tools/files/patch-Parser.pm new file mode 100644 index 000000000000..7bffe7af4a01 --- /dev/null +++ b/mail/p5-MIME-Tools/files/patch-Parser.pm @@ -0,0 +1,75 @@ +--- lib/MIME/Parser.pm.orig Sun Nov 12 14:55:11 2000 ++++ lib/MIME/Parser.pm Wed Nov 19 18:39:33 2003 +@@ -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> or C<message/external-body>: + 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 + +@@ -592,6 +593,7 @@ + # + # I<Instance method.> + # Process and return the next header. ++# Return undef if, instead of a header, the encapsulation boundary is found. + # Fatal exception on failure. + # + sub process_header { +@@ -612,6 +614,10 @@ + foreach (@headlines) { s/[\r\n]+\Z/\n/ } ### fold + + ### How did we do? ++ if ($hdr_rdr->eos_type eq 'DELIM') { ++ $self->whine("bogus part, without CRLF before body"); ++ return; ++ } + ($hdr_rdr->eos_type eq 'DONE') or + $self->error("unexpected end of header\n"); + +@@ -983,7 +989,17 @@ + + ### Parse and add the header: + my $head = $self->process_header($in, $rdr); +- $ent->head($head); ++ if (not defined $head) { ++ $self->debug("bogus empty part"); ++ $head = $self->interface('HEAD_CLASS')->new; ++ $head->mime_type('text/plain; charset=US-ASCII'); ++ $ent->head($head); ++ $ent->bodyhandle($self->new_body_for($head)); ++ $ent->bodyhandle->open("w")->close; ++ $self->results->level(-1); ++ return $ent; ++ } ++ $ent->head($head); + + ### Tweak the content-type based on context from our parent... + ### For example, multipart/digest messages default to type message/rfc822: +@@ -997,8 +1013,10 @@ + 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/external-body" || ++ ("$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); + } |