Mercurial > emacs

changeset 46737:7c794ace9e1a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix regexp for finding return address fields.
author Pavel Janík <Pavel@Janik.cz>
date Mon, 29 Jul 2002 20:04:04 +0000
parents 11f94cbe273f
children b9facd4a123d
files lib-src/b2m.pl
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lib-src/b2m.pl	Mon Jul 29 17:37:23 2002 +0000
+++ b/lib-src/b2m.pl	Mon Jul 29 20:04:04 2002 +0000
@@ -30,7 +30,7 @@
 use Date::Parse;
 
 my($whoami) = basename $0;
-my($version) = '$Revision: 1.1 $';
+my($version) = '$Revision: 1.2 $';
 my($usage) = "Usage: $whoami [--help] [--version] [--[no]full-headers] [Babyl-file]
 \tBy default, full headers are printed.\n";
 
@@ -122,7 +122,7 @@
     }
     else {
 	foreach my $addr_header qw(return-path from really-from sender) {
-	    if ($full_header =~ /(?:^|\n)$addr_header:\s*((?:\S.*\n)+)/i) {
+	    if ($full_header =~ /(?:^|\n)$addr_header:\s*(.*\n(?:\B.*\n)*)/i) {
 		my($addr) = Mail::Address->parse($1);
 		$from_addr = $addr->address($addr);
 		last;