procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix regexp for finding return address fields.

Browse source
This commit is contained in:
Pavel Janík 2002-07-29 20:05:34 +00:00
parent f5d0cc7708
commit c89ed6ef9d
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib-src/ChangeLog
View file

@ -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.

4
lib-src/b2m.pl
View file

@ -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;