/[mws]/trunk/MWS.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/MWS.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 25 by dpavlin, Sat May 8 16:06:58 2004 UTC revision 26 by dpavlin, Sat May 8 16:24:46 2004 UTC
# Line 331  sub plain_text_body { Line 331  sub plain_text_body {
331          }          }
332    
333          if (! $body) {          if (! $body) {
334                  $body = "[body of this message not found]\n" if ($debug == 2);                  $body = "[plain/text body not found]" if ($debug == 2);
335                  $body .= $message->decoded->string;                  print STDERR "plain/text body not found\n" if ($debug);
336                    return;
337          }          }
338    
339          # reformat with Text::Autoformat          # reformat with Text::Autoformat
340          my $wrap = $self->{wrap_margin};          my $wrap = $self->{wrap_margin};
341          if ($wrap && $body && $body =~ m/^.{$wrap}..*$/m) {          if ($wrap && $body && $body =~ m/^.{$wrap}..*$/m) {
342                  $body = autoformat($body, {right=>$wrap, all=>1});                  $body = autoformat($body, {right=>$wrap, all=>1});
                 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    
Legend:
Removed from v.25  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.26