diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 14:56:31 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 14:56:31 +0000 |
commit | 177c0ea74342272645959b82cf219faa0b3dba16 (patch) | |
tree | 44e22b210a9904eab25a66d12e708804b671df75 /lib-src/b2m.pl | |
parent | db95369be096960245dd38678f68464627698678 (diff) |
Trailing whitespace deleted.
Diffstat (limited to 'lib-src/b2m.pl')
-rw-r--r-- | lib-src/b2m.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib-src/b2m.pl b/lib-src/b2m.pl index 40738fd01e..86f9b948b3 100644 --- a/lib-src/b2m.pl +++ b/lib-src/b2m.pl @@ -30,7 +30,7 @@ use Mail::Address; use Date::Parse; my($whoami) = basename $0; -my($version) = '$Revision: 1.3 $'; +my($version) = '$Revision: 1.4 $'; my($usage) = "Usage: $whoami [--help] [--version] [--[no]full-headers] [Babyl-file] \tBy default, full headers are printed.\n"; @@ -80,7 +80,7 @@ while (<>) { $labels = $1; # Strip the integer indicating whether the header is pruned - $labels =~ s/^(\d+)[,\s]*//; + $labels =~ s/^(\d+)[,\s]*//; $pruned = $1; s/(?:((?:.+\n)+)\n*)?\*\*\* EOOH \*\*\*\n+// || goto malformatted; @@ -113,7 +113,7 @@ while (<>) { $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; } |