byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Oops. Don't emit a newline between header and body when queueing over bsmtp,

Browse Source 
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:
Devin Carraway 2006-02-28 07:04:52 +00:00
parent 3f8ab06a36
commit a07ed2ca77
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Changes
View File

@ -1,5 +1,8 @@
0.33 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 Make the clamdscan plugin temporarily deny mail if if can't talk to clamd
(Filippo Carletti) (Filippo Carletti)

3
plugins/queue/exim-bsmtp
View File

@ -90,8 +90,7 @@ sub hook_queue {
"MAIL FROM:<", ($txn->sender->address || ''), ">\n"; "MAIL FROM:<", ($txn->sender->address || ''), ">\n";
print $tmp "RCPT TO:<", ($_->address || ''), ">\n" print $tmp "RCPT TO:<", ($_->address || ''), ">\n"
for $txn->recipients; for $txn->recipients;
print $tmp "DATA\n", print $tmp "DATA\n", $txn->header->as_string;
$txn->header->as_string, "\n";
$txn->body_resetpos; $txn->body_resetpos;
while (my $line = $txn->body_getline) { while (my $line = $txn->body_getline) {
$line =~ s/^\./../; $line =~ s/^\./../;