View | Details | Raw Unified | Return to bug 7404
Collapse All | Expand All

(-)PerMsgStatus.pm (-4 / +4 lines)
Lines 896-911 Link Here
896
    $str .= shift @{$ary};
896
    $str .= shift @{$ary};
897
  }
897
  }
898
  undef $ary;
898
  undef $ary;
899
  chomp ($str); $str .= " [...]\n";
900
899
901
  # in case the last line was huge, trim it back to around 200 chars
900
  # in case the last line was huge, trim it back to around 200 chars
902
  local $1;
901
  local $1;
903
  $str =~ s/^(.{,200}).*$/$1/gs;
902
  $str =~ s/^(.{200}).+$/$1 [...]/gm;
903
  chomp ($str); $str .= "\n";
904
904
905
  # now, some tidy-ups that make things look a bit prettier
905
  # now, some tidy-ups that make things look a bit prettier
906
  $str =~ s/-----Original Message-----.*$//gs;
906
  $str =~ s/-----Original Message-----.*$//gm;
907
  $str =~ s/This is a multi-part message in MIME format\.//gs;
907
  $str =~ s/This is a multi-part message in MIME format\.//gs;
908
  $str =~ s/[-_\*\.]{10,}//gs;
908
  $str =~ s/[-_*.]{10,}//gs;
909
  $str =~ s/\s+/ /gs;
909
  $str =~ s/\s+/ /gs;
910
910
911
  # add "Content preview:" ourselves, so that the text aligns
911
  # add "Content preview:" ourselves, so that the text aligns

Return to bug 7404