Hi! I posted this before, but never got any response. Not sure if that was because my idea was bad or uninteresting or because noone noticed it. :-)
It's just a simple way (a global array) to add headers to the temprary message created for SpamAssassin, so that these headers may be included in rules and in the bayes automagic. The change to mimedefang.pl is small. Personaly I'd like to see it in the official version, so that I don't have to remember to patch it when upgrading. :-) Regards /Jonas -- Jonas Eckerman, FSDB http://www.fsdb.org/
--- mimedefang.pl Fri May 12 15:58:29 2006 +++ mimedefang.pl.new Fri May 12 15:48:48 2006 @@ -58,7 +58,8 @@ $AddApparentlyToForSpamAssassin $WarningCounter @VirusScannerMessageRoutines @VirusScannerEntityRoutines $VirusScannerRoutinesInitialized $MDOpenLogCalled - %SendmailMacros %RecipientMailers $CachedTimezone); + %SendmailMacros %RecipientMailers $CachedTimezone + @SpamAssassinHeaders); use vars qw($GeneralWarning); use vars qw($HTMLFoundEndBody $HTMLBoilerplate $SASpamTester); @@ -5472,6 +5473,7 @@ undef @StatusTags; undef @ESMTPArgs; undef @SenderESMTPArgs; + undef @SpamAssassinHeaders; } sub builtin_create_parser () { @@ -5602,6 +5604,9 @@ } } + # Setup empty spamassassin header list + @SpamAssassinHeaders = (); + # Call pre-scan filter if defined if (defined(&filter_begin)) { push_status_tag("In filter_begin"); @@ -6478,6 +6483,7 @@ push(@sahdrs, "Apparently-To: " . join(", ", @Recipients) . "\n"); } + unshift (@msg, @SpamAssassinHeaders); unshift (@msg, @sahdrs); my $sa_ver = Mail::SpamAssassin->VERSION(); # Only keep major version number
_______________________________________________ NOTE: If there is a disclaimer or other legal boilerplate in the above message, it is NULL AND VOID. You may ignore it. Visit http://www.mimedefang.org and http://www.roaringpenguin.com MIMEDefang mailing list MIMEDefang@lists.roaringpenguin.com http://lists.roaringpenguin.com/mailman/listinfo/mimedefang