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

[Pavel Janík]

Index: emacs/lib-src/b2m.pl
diff -c emacs/lib-src/b2m.pl:1.2 emacs/lib-src/b2m.pl:1.3
*** emacs/lib-src/b2m.pl:1.2    Fri Jul  5 15:56:34 2002
--- emacs/lib-src/b2m.pl        Mon Jul 29 16:04:04 2002
***************
*** 30,36 ****
  use Date::Parse;
  
  my($whoami) = basename $0;
! my($version) = '$Revision: 1.2 $';
  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.3 $';
  my($usage) = "Usage: $whoami [--help] [--version] [--[no]full-headers] 
[Babyl-file]
  \tBy default, full headers are printed.\n";
  
***************
*** 122,128 ****
      }
      else {
        foreach my $addr_header qw(return-path from really-from sender) {
!           if ($full_header =~ /(?:^|\n)$addr_header:\s*((?:\S.*\n)+)/i) {
                my($addr) = Mail::Address->parse($1);
                $from_addr = $addr->address($addr);
                last;
--- 122,128 ----
      }
      else {
        foreach my $addr_header qw(return-path from really-from sender) {
!           if ($full_header =~ /(?:^|\n)$addr_header:\s*(.*\n(?:\B.*\n)*)/i) {
                my($addr) = Mail::Address->parse($1);
                $from_addr = $addr->address($addr);
                last;