diff options
| author | fukachan <fukachan> | 2002-08-03 04:25:20 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-08-03 04:25:20 +0000 |
| commit | 3070b4aeec05fac8cd26667673b8ab7faab01364 (patch) | |
| tree | 1dcc2d604eb9354423b6cf94e9a2c911e402517d /fml/lib | |
| parent | a03b8300c033500fc43f08d846fdb996ec74f4c1 (diff) | |
| download | fml8-3070b4aeec05fac8cd26667673b8ab7faab01364.tar.gz fml8-3070b4aeec05fac8cd26667673b8ab7faab01364.tar.bz2 fml8-3070b4aeec05fac8cd26667673b8ab7faab01364.zip | |
some debug codes (disabled now)
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Mail/Message.pm | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/fml/lib/Mail/Message.pm b/fml/lib/Mail/Message.pm index 6f44f1a7..60fb025b 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.64 2002/05/18 15:30:19 fukachan Exp $ +# $FML: Message.pm,v 1.65 2002/07/02 04:02:10 fukachan Exp $ # package Mail::Message; @@ -1056,6 +1056,23 @@ sub _print_messsage_on_memory $header =~ s/\n/\r\n/g unless (defined $raw_print_mode); print $fd $header; print $fd ($raw_print_mode ? "\n" : "\r\n"); + + # XXX we need to print header separator only if valid body exists. + # XXX but it seems difficult ... ;) + if (0) { + my $m = $self->{ next }; + if (defined $m) { + my $pmap = $self->data_type_list(); + if ($debug || 1) { + print STDERR "\tlist: @$pmap\n"; + print STDERR "\tnext size: ", $m->size, "\n"; + } + if ($m->size() > 0 || $#$pmap > 1) { + print STDERR "\t<cr>\n" if $debug || 1; + print $fd ($raw_print_mode ? "\n" : "\r\n"); + } + } + } } # skip the first rfc822 header (which is the real header for delivery). |