X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=0cc0c0d4d853d4458abd07366ed4aeb74fc572a7;hb=b03a751903070dc2ddd34383d5a4a2820c4d1204;hp=4c9d2e59f52752b75817394055224e7482c28eec;hpb=bbcb636f1bc71eb1426685ef64382ea42d27ecfb;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 4c9d2e59..0cc0c0d4 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -487,7 +487,7 @@ sub del_msg
 
 		my $call = '';
 		$call = ' by ' . $dxchan->call if $dxchan;
-		Log("Msgno $self->{msgno} expunged$call");
+		Log('msg', "Msgno $self->{msgno} expunged$call");
 		
 		# remove the file
 		unlink filename($self->{msgno});