Small fix for Mail-MboxParser-0.55

This is a multi-part message in MIME format.
--------------030909010306020406070508
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

Hello,

Attached is a slightly modified version of Mail.pm (v 1.53) which is
contained in the package Mail-MboxParser-0.55. It fixes a problem which
caused the header() function of the Mail::MBoxParser::Mail class to
return erroneous results for some mail messages.

It turns out that some Mail User Agents (notably certain versions of
Outlook) place a Tab (0x09) rather than a Space (0x20) character after
the ':' on some header lines. This was causing a problem in the
'_split_header' subroutine because it was explicitly searching for a
colon followed by a space (": ").

The new, attached version of Mail.pm avoids this problem by splitting
the header line into $key and $value components at the first ':' without
regard to the character that follows. Leading and trailing whitespace is
then stripped from the $value component.

I hope you will find this fix acceptable and will be able to incorporate
it into the next version of Mail-MBoxParser.

Thank you also once again for writing and maintaining this wonderfully
useful module.

Best regards,


P.S. I apologize if this is a repeat message for you. My direct e-mails
to you received no response and I suspected that they were getting
caught in a junk mail filter.


--------------030909010306020406070508
Content-Type: application/x-perl;
name="Mail.pm"
Content-Transfer-Encoding: 8bit
Content-Disposition: inline;
filename="Mail.pm"

# Mail::MboxParser - object-oriented access to UNIX-mailboxes
#
# Copyright (C) 2001 Tassilo v. Parseval
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

# Version: $Id: Mail.pm,v 1.53 2005/11/23 09:30:12 parkerpine Exp $

package Mail::MboxParser::Mail;

require 5.004;

use base qw(Exporter Mail::MboxParser::Base);

# ------------------------------------------------------------ ----

=head1 NAME

Mail::MboxParser::Mail - Provide mail-objects and methods upon

=head1 SYNOPSIS

See L for an outline on usage. Examples however are also
provided in this manpage further below.

=head1 DESCRIPTION

Mail::MboxParser::Mail objects are usually not created directly though, in
theory, they could be. A description of the provided methods can be found in
L.

However, go on reading if you want to use methods from MIME::Entity and learn
about overloading.

=head1 METHODS

=cut

use Mail::MboxParser::Mail::Body;
use Mail::MboxParser::Mail::Convertable;
use Carp;

use strict;
use vars qw($VERSION @EXPORT $AUTOLOAD $NL);
$VERSION = "0.45";
@EXPORT = qw();

# we'll use it to store the MIME::Parser
my $Parser;

use overload '""' => \&as_string, fallback => 1;

BEGIN { $Mail::MboxParser::Mail::NL = "\n" }

use constant
HAVE_ENCODE => eval { require Encode; 1 } || 0;
use constant
HAVE_MIMEWORDS => eval { require MIME::Words; 1 } || 0;

# ------------------------------------------------------------ ----

=over 4

=item B

This is usually not called directly but instead by C. You could
however create a mail-object manually providing the header and body each as
either one string or as an array-ref representing the lines.

Here is a common scenario: Retrieving mails from a remote POP-server using
Mail::POP3Client and directly feeding each mail to
Cnew>:

use Mail::POP3Client;
use Mail::MboxParser::Mail;

my $pop = new Mail::POP3Client (...);

for my $i (1 .. $pop->Count) {
my $msg = Mail::MboxParser::Mail->new( [ $pop->Head($i) ],
[ $pop->Body($i) ] );
$msg->store_all_attachments( path => '/home/user/dump' );
}

The above effectively behaves like an attachment-only retriever.

=back

=cut

sub init (@) {
my ($self, @args) = @_;
my ($header, $body, $conf) = @args;

$self->{HEADER} = ref $header ? $header : [ split /$NL/, $header ];
$self->{HEADER_HASH} = \&_split_header;
$self->{BODY} = ref $body ? $body : [ split /$NL/, $body ];
$self->{TOP_ENTITY} = 0;
$self->{ARGS} = $conf;

if (! $self->{ARGS}->{uudecode} ) {
# set default for 'uudecode' option
$self->{ARGS}->{uudecode} = 0;
}

# make sure line-endings are ok if called directly
if (caller(1) ne 'Mail::MboxParser') {
$self->{ARGS}->{join_string} = '';
for (@{ $self->{HEADER} }, @{ $self->{BODY} }) {
$_ .= "\n" unless /.*\n$/;
}
push @{ $self->{HEADER} }, "\n" if $self->{HEADER}->[-1] ne "\n";
}
$self;
}

# ------------------------------------------------------------ ----

=over 4

=item B