John Peacock <[EMAIL PROTECTED]> wrote:
> Building on the patch from Keith Ivey
>
> http://nntp.x.perl.org/group/perl.qpsmtpd/544
A couple of corrections to my earlier version. The wrapping of
the
tests string was wrong (wrapped the last test even when not
necessary), plus it was a little narrow. So you might want to
incorporate this into your patch:
- $tests =~ s/(.{1,50}),/$1,\n\t/g; # wrap
+ $tests =~ s/(.{1,60}(?:,|$))/$1\n\t/g; # wrap
+ $tests =~ s/\s+$//;
Also, it can be useful for SpamAssassin to have the envelope
FROM
address, so I've started sending it as a header:
# or CHECK or REPORT or SYMBOLS
+ print SPAMD "X-Envelope-From: ", $transaction->sender-
>format, CRLF;
+
print SPAMD join CRLF, split /\n/, $transaction->header-
>as_string
or warn "Could not print to spamd: $!";
--
Keith C. Ivey <[EMAIL PROTECTED]>
Washington, DC
