emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lib-src/b2m.pl


From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/lib-src/b2m.pl
Date: Tue, 04 Feb 2003 09:06:56 -0500

Index: emacs/lib-src/b2m.pl
diff -c emacs/lib-src/b2m.pl:1.4 emacs/lib-src/b2m.pl:1.5
*** emacs/lib-src/b2m.pl:1.4    Wed Dec 11 18:31:53 2002
--- emacs/lib-src/b2m.pl        Tue Feb  4 09:06:56 2003
***************
*** 30,36 ****
  use Date::Parse;
  
  my($whoami) = basename $0;
! my($version) = '$Revision: 1.4 $';
  my($usage) = "Usage: $whoami [--help] [--version] [--[no]full-headers] 
[Babyl-file]
  \tBy default, full headers are printed.\n";
  
--- 30,36 ----
  use Date::Parse;
  
  my($whoami) = basename $0;
! my($version) = '$Revision: 1.5 $';
  my($usage) = "Usage: $whoami [--help] [--version] [--[no]full-headers] 
[Babyl-file]
  \tBy default, full headers are printed.\n";
  
***************
*** 80,86 ****
      $labels = $1;
  
      # Strip the integer indicating whether the header is pruned
!     $labels =~ s/^(\d+)[,\s]*//; 
      $pruned = $1;
  
      s/(?:((?:.+\n)+)\n*)?\*\*\* EOOH \*\*\*\n+// || goto malformatted;
--- 80,86 ----
      $labels = $1;
  
      # Strip the integer indicating whether the header is pruned
!     $labels =~ s/^(\d+)[,\s]*//;
      $pruned = $1;
  
      s/(?:((?:.+\n)+)\n*)?\*\*\* EOOH \*\*\*\n+// || goto malformatted;
***************
*** 113,119 ****
      $labels =~ s/[,\s]+$//;
      # Now collapse extra commas and whitespace in the remaining label string
      $labels =~ s/[,\s]+/, /g;
!     
      foreach my $rmail_header qw(summary-line x-coding-system) {
        $full_header =~ s/(^|\n)$rmail_header:.*\n/$1/i;
      }
--- 113,119 ----
      $labels =~ s/[,\s]+$//;
      # Now collapse extra commas and whitespace in the remaining label string
      $labels =~ s/[,\s]+/, /g;
! 
      foreach my $rmail_header qw(summary-line x-coding-system) {
        $full_header =~ s/(^|\n)$rmail_header:.*\n/$1/i;
      }




reply via email to

[Prev in Thread] Current Thread [Next in Thread]