X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=d5f56c330a59945e944ad9b0a608bea0d0d65c7e;hb=87ba7daa22b255b3492fc697121928e85d901e0e;hp=8c2e7c46aa3e3d8fb85a7ef45e3ec185e74c777e;hpb=c5c8e14ce61160f8dd54ddcf6f41a885f51a373d;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 8c2e7c46..d5f56c33 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -267,7 +267,7 @@ sub process
 						# does an identical message already exist?
 						my $m;
 						for $m (@msg) {
-							if ($ref->{subject} eq $m->{subject} && $ref->{t} == $m->{t} && $ref->{from} eq $m->{from}) {
+							if ($ref->{subject} eq $m->{subject} && $ref->{t} == $m->{t} && $ref->{from} eq $m->{from} && $ref->{to} eq $m->{to}) {
 								$ref->stop_msg($self->call);
 								my $msgno = $m->{msgno};
 								dbg('msg', "duplicate message to $msgno\n");