From efeb19129f3cac506ef77076a1c72bbb9cee732d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Mon, 9 Dec 2002 09:08:09 +0000
Subject: [PATCH] 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
---
 Changes             | 2 ++
 lib/Qpsmtpd/SMTP.pm | 1 +
 2 files changed, 3 insertions(+)

diff --git a/Changes b/Changes
index 1cb12f7..7daf888 100644
--- a/Changes
+++ b/Changes
@@ -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.
 
diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index e004f51..62b93bb 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -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;