diff lib-src/b2m.pl @ 49600:23a1cea22d13

Trailing whitespace deleted.

--- a/lib-src/b2m.pl	Tue Feb 04 13:30:45 2003 +0000
+++ b/lib-src/b2m.pl	Tue Feb 04 14:56:31 2003 +0000
@@ -30,7 +30,7 @@
 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 @@
     $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 @@
     $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;
     }