/[emacs]/emacs/lib-src/b2m.pl
ViewVC logotype

Diff of /emacs/lib-src/b2m.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26