diff options
| author | fukachan <fukachan> | 2001-07-31 12:56:21 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-07-31 12:56:21 +0000 |
| commit | 62880dc535bcea7be4fd9d069095c83f756e62e8 (patch) | |
| tree | 1c3907bb88b765614d58580d001e459808026731 /fml/lib | |
| parent | 8522e5299148b10700617bfd8626b63aea1f63b1 (diff) | |
| download | fml8-62880dc535bcea7be4fd9d069095c83f756e62e8.tar.gz fml8-62880dc535bcea7be4fd9d069095c83f756e62e8.tar.bz2 fml8-62880dc535bcea7be4fd9d069095c83f756e62e8.zip | |
call again $self->address_clean_up($addr, $addr)
gives $addr itself as a hint of fixing broken address
domain part of $addr may match someting e.g. nifty.ne.jp, webtv.ne.jp.
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Mail/Bounce/DSN.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/fml/lib/Mail/Bounce/DSN.pm b/fml/lib/Mail/Bounce/DSN.pm index b9ff7168..6cebab6f 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.7 2001/07/30 14:42:34 fukachan Exp $ +# $FML: DSN.pm,v 1.8 2001/07/30 23:09:04 fukachan Exp $ # @@ -122,6 +122,10 @@ sub _parse_dsn_format if ($addr =~ /.*;\s*(\S+\@\S+\w+)/) { $addr = $1;} $addr = $self->address_clean_up($self, $addr); + # gives $addr itself as a hint of fixing broken address + # domain part of $addr may match someting e.g. nifty.ne.jp, webtv.ne.jp. + $addr = $self->address_clean_up($addr, $addr); + # set up return buffer if ($addr =~ /\@/) { $result->{ $addr }->{ 'Final-Recipient' } = $addr; |