diff options
| author | fukachan <fukachan> | 2001-04-15 14:33:36 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-15 14:33:36 +0000 |
| commit | 95709dae454430a666db455dde0b89ce548a0460 (patch) | |
| tree | 86127b90c410ab640f886f7d6a74cc5780072eff /fml | |
| parent | 7bd5809d3f2b63b53eda8846e6da3a027f369f8b (diff) | |
| download | fml8-95709dae454430a666db455dde0b89ce548a0460.tar.gz fml8-95709dae454430a666db455dde0b89ce548a0460.tar.bz2 fml8-95709dae454430a666db455dde0b89ce548a0460.zip | |
smtpsvc returns boundary = "boundary" format
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/Mail/Message.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index eff3a4d7..45ce2d15 100644 --- a/fml/lib/Mail/Message.pm +++ b/fml/lib/Mail/Message.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Message.pm,v 1.17 2001/04/13 03:52:05 fukachan Exp $ +# $FML: Message.pm,v 1.18 2001/04/15 14:15:30 fukachan Exp $ # package Mail::Message; @@ -253,7 +253,7 @@ sub _set_up_template $self->{'prev'} = $args->{'prev'} || undef; # MIME-header information - $self->{'header' } = $args->{'header'} || undef; + $self->{'header' } = $args->{'header'} || undef; # information on data and the type for the message. $self->{'mime_version'} = $args->{'mime_version'} || 1.0; @@ -602,7 +602,7 @@ sub _header_mime_boundary my ($self, $header) = @_; my $m = $header->get('content-type'); - if ($m =~ /boundary=\"(.*)\"/i) { # case insensitive + if ($m =~ /boundary\s*=\s*\"(.*)\"/i) { # case insensitive return $1; } else { |