[svn:qpsmtpd] r947 - trunk/lib/Qpsmtpd

[msergeant]

Author: msergeant
Date: Fri Sep 26 11:59:12 2008
New Revision: 947

Modified:
   trunk/lib/Qpsmtpd/PollServer.pm

Log:
Fix bug in -async where the body_file (via body_filename) wouldn't have the 
headers in it.


Modified: trunk/lib/Qpsmtpd/PollServer.pm
==============================================================================
--- trunk/lib/Qpsmtpd/PollServer.pm     (original)
+++ trunk/lib/Qpsmtpd/PollServer.pm     Fri Sep 26 11:59:12 2008
@@ -279,6 +279,7 @@
                 my $header = Mail::Header->new([EMAIL PROTECTED],
                                                 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/";);