diff options
| author | Pavel Janík <Pavel@Janik.cz> | 2002-07-29 20:05:34 +0000 |
|---|---|---|
| committer | Pavel Janík <Pavel@Janik.cz> | 2002-07-29 20:05:34 +0000 |
| commit | c89ed6ef9d936df183618cd34f75f26e65f32d5a (patch) | |
| tree | adc5b67cc15bf54799d3a91f977b82d2dba8214f /lib-src | |
| parent | f5d0cc77080f006eaca6d43cd50b997bfdf999bf (diff) | |
| download | emacs-c89ed6ef9d936df183618cd34f75f26e65f32d5a.tar.gz | |
Fix regexp for finding return address fields.
Diffstat (limited to 'lib-src')
| -rw-r--r-- | lib-src/ChangeLog | 4 | ||||
| -rw-r--r-- | lib-src/b2m.pl | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lib-src/ChangeLog b/lib-src/ChangeLog index 6eb5966c01b..c9d246b6904 100644 --- a/lib-src/ChangeLog +++ b/lib-src/ChangeLog @@ -1,3 +1,7 @@ +2002-07-29 Jonathan Kamens <jik@kamens.brookline.ma.us> + + * b2m.pl: Fix regexp for finding return address fields. + 2002-07-15 Stefan Monnier <monnier@cs.yale.edu> * make-docfile.c (scan_c_file): Warn about missing `usage' info. diff --git a/lib-src/b2m.pl b/lib-src/b2m.pl index 9098418d966..665dfe202d5 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.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 @@ while (<>) { } 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; |