***************
*** 245,253 ****
  
    my($pipe);
    my($SAHitList, $SAHits, $SAReqHits, $IsItSpam, $IsItHighScore);
-   my($HighScoreVal, $pid2delete);
    my $PipeReturn = 0;
  
    $pipe = new IO::Pipe
      or MailScanner::Log::DieLog('Failed to create pipe, %s, try reducing ' .
                    'the maximum number of unscanned messages per batch', $!);
--- 245,255 ----
  
    my($pipe);
    my($SAHitList, $SAHits, $SAReqHits, $IsItSpam, $IsItHighScore);
+   my($HighScoreVal, $pid2delete, $IncludeScores);
    my $PipeReturn = 0;
  
+   $IncludeScores = MailScanner::Config::Value('listsascores', $Message);
+ 
    $pipe = new IO::Pipe
      or MailScanner::Log::DieLog('Failed to create pipe, %s, try reducing ' .
                    'the maximum number of unscanned messages per batch', $!);
