From e6ee4c486b764974c9c792b6665b7305b11fa586 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Thu, 15 Mar 2007 06:13:18 +0000
Subject: [PATCH]   Correct header parsing of "space only" lines (Joerg Meyer)

  (issue #11 - http://code.google.com/p/smtpd/issues/detail?id=11 )


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@722 958fd67b-6ff1-0310-b445-bb7760255be9
---
 Changes             | 2 ++
 lib/Qpsmtpd/SMTP.pm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index be68d4e..1d4dc7d 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 0.33 (to be)
 
+  Correct header parsing of "space only" lines (Joerg Meyer)
+
   Update the sample configuration to use zen.spamhaus.org
 
   Support "module" plugins ("My::Plugin" in the config/plugins file)
diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index bc69fc5..5f42bab 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -616,7 +616,7 @@ sub data_respond {
     unless (($max_size and $size > $max_size)) {
       s/\r\n$/\n/;
       s/^\.\./\./;
-      if ($in_header and m/^\s*$/) {
+      if ($in_header and m/^$/) {
         $in_header = 0;
         my @headers = split /^/m, $buffer;