I am trying to evaluate SpamAssassin 2.55 on a per user install
 through IMAPAssassin. (perl 5.008)

When the message is passed to Mail::SpamAssassin,
  the score always comes back as 0 point,
 If the message is written to a file,
  then passed to spamassassin -t < input > output,
  the score points are valid.


my $SpamTest = new Mail::SpamAssassin ({'userprefs_filename'=>$SAFile});
my $IMAP = Mail::IMAPClient->new;


$Message = $IMAP -> message_string($MID);
   # Gets message from IMAP ok


my $MessageObject = $SpamTest -> check_message_text($Message);
my $IsSpam = $MessageObject -> is_spam(); 

if ($IsSpam) {  ...
   # Always returns as not Spam


print "\n",($MessageObject -> get_report ()),"\n";
   # Report on the msg looks as expected (per user conf)
   # EXCEPT ALWAYS HAS 0 POINTS !


open TESTFILE,">$TestFile$MID.txt";
print TESTFILE $Message;
close TESTFILE;
   # If I write the messages to files
   # then run spamassassin -t < TestFile > TestFile-sa
   # Report in TestFile-sa looks as expected (per user conf)
   # including valid points !




-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100006ave/direct;at.asp_061203_01/01
_______________________________________________
Spamassassin-talk mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/spamassassin-talk

Reply via email to