Parent Directory | Revision Log | Patch
revision 1.2 by pj, Fri Jul 5 19:56:34 2002 UTC | revision 1.3 by pj, Mon Jul 29 20:04:04 2002 UTC | |
---|---|---|
# | Line 122 while (<>) { | Line 122 while (<>) { |
122 | } | } |
123 | else { | else { |
124 | foreach my $addr_header qw(return-path from really-from sender) { | foreach my $addr_header qw(return-path from really-from sender) { |
125 | if ($full_header =~ /(?:^|\n)$addr_header:\s*((?:\S.*\n)+)/i) { | if ($full_header =~ /(?:^|\n)$addr_header:\s*(.*\n(?:\B.*\n)*)/i) { |
126 | my($addr) = Mail::Address->parse($1); | my($addr) = Mail::Address->parse($1); |
127 | $from_addr = $addr->address($addr); | $from_addr = $addr->address($addr); |
128 | last; | last; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |