Blacklist feature request

[Julian Field]

At 17:27 17/11/2003, you wrote:
>Hi Julian,
>
>There's already a $message->{spamwhitelisted} variable within the message
>object for the 'Is Definitly Not Spam' setting, but there isn't a
>corresponding $message->{spamblacklisted} for the 'Is Definitely Spam'
>option (or if there is I couldn't find it) - can this be added??

Sure thing. Apply this to Message.pm:

--- Message.pm.old 2003-11-14 17:09:41.000000000 +0000
+++ Message.pm  2003-11-17 17:36:49.000000000 +0000
@@ -77,6 +77,7 @@
  # $workarea            set by new
  # @archiveplaces       set by new (addresses and dirs)
  # $spamwhitelisted      set by IsSpam
+# $spamblacklisted      set by IsSpam
  # $isspam               set by IsSpam
  # $issaspam             set by IsSpam
  # $isrblspam            set by IsSpam
@@ -282,11 +283,13 @@
    $todomain = join(',', keys %todomain);

    # $spamwhitelisted      set by IsSpam
+  # $spamblacklisted      set by IsSpam
    # $isspam               set by IsSpam
    # $ishigh               set by IsSpam
    # $spamreport           set by IsSpam

    $this->{spamwhitelisted} = 0;
+  $this->{spamblacklisted} = 0;
    $this->{isspam} = 0;
    $this->{ishigh} = 0;
    $this->{spamreport} = "";
@@ -321,6 +324,7 @@

    # If it's a blacklisted address, don't bother doing any checks at all
    if (MailScanner::Config::Value('spamblacklist', $this)) {
+    $this->{spamblacklisted} = 1;
      $this->{isspam} = 1;
      $this->{ishigh} = 1
        if MailScanner::Config::Value('blacklistedishigh', $this);

--
Julian Field
www.MailScanner.info
Professional Support Services at www.MailScanner.biz
MailScanner thanks transtec Computers for their support
PGP footprint: EE81 D763 3DB0 0BFD E1DC  7222 11F6 5947 1415 B654