MailLoop / Solved

[Julian Field]

Can I just confirm with you that your fix was to do this, and a similar
change in MCPMessage.pm:

--- Message.pm.old 2003-11-18 14:46:13.000000000 +0000
+++ Message.pm  2003-11-25 11:18:28.000000000 +0000
@@ -609,6 +609,26 @@
    # Don't ever send a message to "" or "<>"
    return if $from eq "" || $from eq "<>";

+  # Do we want to send the sender a warning at all?
+  # If nosenderprecedence is set to non-blank and contains this
+  # message precedence header, then just return.
+  my(@preclist, $prec, $precedence, $header);
+  @preclist = split(" ",
+                  lc(MailScanner::Config::Value('nosenderprecedence',
$this)));
+  $precedence = "";
+  foreach $header (@{$this->{headers}}) {
+    $precedence = lc($1) if $header =~ /^precedence:\s+(\S+)/i;
+  }
+  if (@preclist && $precedence ne "") {
+    foreach $prec (@preclist) {
+      if ($precedence eq $prec) {
+        MailScanner::Log::InfoLog("Skipping sender of precedence %s",
+                                  $precedence);
+        return;
+      }
+    }
+  }
+
    # Setup other variables they can use in the message template
    $id = $this->{id};
    $to = join(', ', @{$this->{to}});

At 10:58 25/11/2003, you wrote:
>Hi Julian,
>
>sure I restart MailScanner ;-)
>
>I found the Problem...
>
>
>The "Precedence" Entry in message.pm is only present in "sub Warnsender",
>not in "sub HandleSpamBounce".
>There is also no "Precedence" Entry in MCPMessage.pm (sub HandleMCPBounce).
>
>I just add the same line as found in "sub Warnsender" to the other two
>Routines and all work :-)
>
>
>Thanks
>
>Holger

--
Julian Field
www.MailScanner.info
MailScanner thanks transtec Computers for their support

PGP footprint: EE81 D763 3DB0 0BFD E1DC  7222 11F6 5947 1415 B654