Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix bug which breaks queue plugins that implement continuations
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@764 958fd67b-6ff1-0310-b445-bb7760255be9
  • Loading branch information
Matt Sergeant committed Aug 3, 2007
1 parent 8809fce commit 521a6f3
Showing 1 changed file with 8 additions and 4 deletions.
12 changes: 8 additions & 4 deletions lib/Qpsmtpd/SMTP.pm
Expand Up @@ -719,18 +719,18 @@ sub data_post_respond {
elsif ($rc == DENY) {
$msg->[0] ||= "Message denied";
$self->respond(552, @$msg);
# DATA is always the end of a "transaction"
return $self->reset_transaction;
}
elsif ($rc == DENYSOFT) {
$msg->[0] ||= "Message denied temporarily";
$self->respond(452, @$msg);
# DATA is always the end of a "transaction"
return $self->reset_transaction;
}
else {
$self->queue($self->transaction);
}

# DATA is always the end of a "transaction"
return $self->reset_transaction;

}

sub getline {
Expand Down Expand Up @@ -765,6 +765,10 @@ sub queue_pre_respond {

sub queue_respond {
my ($self, $rc, $msg, $args) = @_;

# reset transaction if we queued the mail
return $self->reset_transaction;

if ($rc == DONE) {
return 1;
}
Expand Down

0 comments on commit 521a6f3

Please sign in to comment.