[Top][All Lists]
[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;
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lib-src/b2m.pl,
Juanma Barranquero <=