--- trunk/MWS.pm 2004/05/08 16:06:58 25 +++ trunk/MWS.pm 2004/05/08 16:24:46 26 @@ -331,15 +331,15 @@ } if (! $body) { - $body = "[body of this message not found]\n" if ($debug == 2); - $body .= $message->decoded->string; + $body = "[plain/text body not found]" if ($debug == 2); + print STDERR "plain/text body not found\n" if ($debug); + return; } # reformat with Text::Autoformat my $wrap = $self->{wrap_margin}; if ($wrap && $body && $body =~ m/^.{$wrap}..*$/m) { $body = autoformat($body, {right=>$wrap, all=>1}); - print "reformatted [$wrap]:\n$body\n" if ($debug == 2); $body .="\n[reformated using autoformat, margin at $wrap]" if ($debug == 2); }