330 |
} |
} |
331 |
} |
} |
332 |
|
|
333 |
|
if (! $body) { |
334 |
|
$body = "[body of this message not found]\n" if ($debug == 2); |
335 |
|
$body .= $message->decoded->string; |
336 |
|
} |
337 |
|
|
338 |
# reformat with Text::Autoformat |
# reformat with Text::Autoformat |
339 |
my $wrap = $self->{wrap_margin}; |
my $wrap = $self->{wrap_margin}; |
340 |
if ($wrap && $body && $body =~ m/^.{$wrap}..*$/m) { |
if ($wrap && $body && $body =~ m/^.{$wrap}..*$/m) { |
|
$body =~ s/[\r\n]/\n/gs; |
|
341 |
$body = autoformat($body, {right=>$wrap, all=>1}); |
$body = autoformat($body, {right=>$wrap, all=>1}); |
342 |
|
print "reformatted [$wrap]:\n$body\n" if ($debug == 2); |
343 |
$body .="\n[reformated using autoformat, margin at $wrap]" if ($debug == 2); |
$body .="\n[reformated using autoformat, margin at $wrap]" if ($debug == 2); |
344 |
} |
} |
345 |
|
|