Date: | Thu, 3 Jan 2002 04:24:58 -0600 |
From: | Tom Brown <thecap [...] mail.utexas.edu> |
To: | simon [...] brecon.co.uk |
Subject: | Mail::Audit::KillDups bug? |
I can't get KillDups to work without adding an chomp to the $mid that
comes from the Mail::Header object. Looking at the Mail::Header source
suggests that it keeps a new line at the end of each header line.
Here is where I added the chomp:
my $mid = $item->{obj}->head->get("Message-Id");
chomp $mid; # Mail::Header::get returns lines with a \n at the end
_log(3, "Found mid '$mid'");
You can see where my change kicked in from looking at the msgid cache:
<557E17BE74D22143B7BE70EB60E33E999E47D8@shlmsg01.ad.infosys.com>
<DECDD99B-0025-11D6-A8F7-003065F6D85A@mathforum.org>
<2.2.32.20020103085335.00b94c94@mail.hdtv.net>
<2.2.32.20020103085335.00b94c94@mail.hdtv.net>
<3C342181.2F236452@chamas.com>
<1010049502.712@paypal.com>
<3C3422BF.165F79BB@chamas.com>
<3C3426B7.3020802@petabit.com>
<20020103095321.E6153@software.plasmon>
<3C342A8D.70DF3C31@t-online.de>
I am running Mail::Audit::KillDups::VERSION = '1.8' and
Mail::Header::VERSION = "1.42", both the latest in CPAN.
I am also having some problems getting Mail::Audit and exim to do what
I want with my 'From ' header, but otherwise I've been very happy with
it.
--
mailto:thecap@usa.net
http://www.ece.utexas.edu/~thecap/
28 70 20 71 2C 65 29 61 9C B1 36 3D D4 69 CE 62 4A 22 8B 0E DC 3E