diff options
| author | fukachan <fukachan> | 2001-04-09 15:31:48 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-09 15:31:48 +0000 |
| commit | 551f548d4a36aa96bc8f65cc824c313102a078cd (patch) | |
| tree | b1149ab15ddb7c6143141e01fd3a446d597af5b0 /fml/lib/Mail | |
| parent | 17a1a55b6848a10fe19172eeb643ee06a7f8f2b3 (diff) | |
| download | fml8-551f548d4a36aa96bc8f65cc824c313102a078cd.tar.gz fml8-551f548d4a36aa96bc8f65cc824c313102a078cd.tar.bz2 fml8-551f548d4a36aa96bc8f65cc824c313102a078cd.zip | |
addr = Original-Recipient || Final-Recipient
Diffstat (limited to 'fml/lib/Mail')
| -rw-r--r-- | fml/lib/Mail/Bounce/DSN.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fml/lib/Mail/Bounce/DSN.pm b/fml/lib/Mail/Bounce/DSN.pm index 005d948e..a4d39427 100644 --- a/fml/lib/Mail/Bounce/DSN.pm +++ b/fml/lib/Mail/Bounce/DSN.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: DSN.pm,v 1.1 2001/04/08 16:17:29 fukachan Exp $ +# $FML: DSN.pm,v 1.2 2001/04/09 14:06:15 fukachan Exp $ # @@ -16,7 +16,7 @@ use Carp; =head1 NAME -Mail::Bounce::DSN - DNS error message format parser +Mail::Bounce::DSN - DSN error message format parser =head1 SYNOPSIS @@ -78,7 +78,9 @@ sub _parse_dsn_format use Mail::Header; my @h = split(/\n/, $buf); my $header = new Mail::Header \@h; - my $addr = $header->get('Final-Recipient'); + my $addr = $header->get('Original-Recipient') || + $header->get('Final-Recipient'); + if ($addr =~ /.*;\s*(\S+\@\S+)/) { $addr = $1;} |