Fix the "too many dots in the beginning of the line" bug.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@105 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2002-12-09 09:08:09 +00:00
parent 52d16950ac
commit efeb19129f
2 changed files with 3 additions and 0 deletions

View File

@ -1,5 +1,7 @@
0.20 - development
Fix the "too many dots in the beginning of the line" bug.
Add munge_subject_threshold and reject_threshold options to the
spamassassin plugin. Add documentation to the spamassassin plugin.

View File

@ -286,6 +286,7 @@ sub data {
# add a transaction->blocked check back here when we have line by line plugin access...
unless (($max_size and $size > $max_size)) {
s/\r\n$/\n/;
s/^\.\./\./;
if ($in_header and m/^\s*$/) {
$in_header = 0;
my @header = split /\n/, $buffer;