/[emacs]/emacs/lib-src/b2m.pl
ViewVC logotype

Diff of /emacs/lib-src/b2m.pl

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

revision 1.4 by pj, Wed Dec 11 23:31:53 2002 UTC revision 1.5 by lektu, Tue Feb 4 14:06:56 2003 UTC
# Line 80  while (<>) { Line 80  while (<>) {
80      $labels = $1;      $labels = $1;
81    
82      # Strip the integer indicating whether the header is pruned      # Strip the integer indicating whether the header is pruned
83      $labels =~ s/^(\d+)[,\s]*//;      $labels =~ s/^(\d+)[,\s]*//;
84      $pruned = $1;      $pruned = $1;
85    
86      s/(?:((?:.+\n)+)\n*)?\*\*\* EOOH \*\*\*\n+// || goto malformatted;      s/(?:((?:.+\n)+)\n*)?\*\*\* EOOH \*\*\*\n+// || goto malformatted;
# Line 113  while (<>) { Line 113  while (<>) {
113      $labels =~ s/[,\s]+$//;      $labels =~ s/[,\s]+$//;
114      # Now collapse extra commas and whitespace in the remaining label string      # Now collapse extra commas and whitespace in the remaining label string
115      $labels =~ s/[,\s]+/, /g;      $labels =~ s/[,\s]+/, /g;
116        
117      foreach my $rmail_header qw(summary-line x-coding-system) {      foreach my $rmail_header qw(summary-line x-coding-system) {
118          $full_header =~ s/(^|\n)$rmail_header:.*\n/$1/i;          $full_header =~ s/(^|\n)$rmail_header:.*\n/$1/i;
119      }      }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26