Subject: | Killdups kills all messages that lack a messgae id |
Patch to report messages without a message id as not a duplicate.
the current code reports any message without a message id as a duplicate
*** ./site_perl/5.6.1/Mail/Audit/KillDups.pm Thu Jul 25 21:07:16 2002
--- /usr/local/perl/lib/site_perl/5.8.1/Mail/Audit/KillDups.pm Tue Jan 15 23:04:31 2002
***************
*** 24,32 ****
chomp $mid;
while (<MSGID>) {
chomp;
! if (! $mid){
! #It does happen that they don't you know
! } elsif ($_ eq $mid) {
_log(1, "Duplicate, ignoring");
$self->ignore;
return 1; # Just in case.
--- 24,30 ----
chomp $mid;
while (<MSGID>) {
chomp;
! if ($_ eq $mid) {
_log(1, "Duplicate, ignoring");
$self->ignore;
return 1; # Just in case.