Fix bug in -async where the body_file (via body_filename) wouldn't ha…

…ve the headers in it.

git-svn-id: http://svn.perl.org/qpsmtpd/trunk@947 958fd67b-6ff1-0310-b445-bb7760255be9

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/");