From 77582b0b10cab40bac323af1976fcc30cabd6ccf Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Fri, 26 Sep 2008 18:59:12 +0000
Subject: [PATCH] Fix bug in -async where the body_file (via body_filename)
 wouldn't have the headers in it.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@947 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/PollServer.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Qpsmtpd/PollServer.pm b/lib/Qpsmtpd/PollServer.pm
index 566bf04..3bee02f 100644
--- a/lib/Qpsmtpd/PollServer.pm
+++ b/lib/Qpsmtpd/PollServer.pm
@@ -279,6 +279,7 @@ sub got_data {
                 my $header = Mail::Header->new(\@header_lines,
                                                 Modify => 0, MailFrom => "COERCE");
                 $self->transaction->header($header);
+                $self->transaction->body_write($self->{header_lines});
                 $self->{header_lines} = '';
 
                 #$header->add("X-SMTPD", "qpsmtpd/".$self->version.", http://smtpd.develooper.com/");