Oops. Don't emit a newline between header and body when queueing over bsmtp,
because the body itself already contains one. git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@623 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
3f8ab06a36
commit
a07ed2ca77
3
Changes
3
Changes
@ -1,5 +1,8 @@
|
||||
0.33
|
||||
|
||||
Fix a spurious newline at the start of messages queued via exim (Devin
|
||||
Carraway)
|
||||
|
||||
Make the clamdscan plugin temporarily deny mail if if can't talk to clamd
|
||||
(Filippo Carletti)
|
||||
|
||||
|
@ -90,8 +90,7 @@ sub hook_queue {
|
||||
"MAIL FROM:<", ($txn->sender->address || ''), ">\n";
|
||||
print $tmp "RCPT TO:<", ($_->address || ''), ">\n"
|
||||
for $txn->recipients;
|
||||
print $tmp "DATA\n",
|
||||
$txn->header->as_string, "\n";
|
||||
print $tmp "DATA\n", $txn->header->as_string;
|
||||
$txn->body_resetpos;
|
||||
while (my $line = $txn->body_getline) {
|
||||
$line =~ s/^\./../;
|
||||
|
Loading…
Reference in New Issue
Block a user