From f7790c75fd91e7f72a6273dd5bc091fdee64fdb8 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Thu, 24 Jul 2003 12:43:02 +0000
Subject: [PATCH] Removed DISCARD

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@165 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/Constants.pm | 9 +--------
 lib/Qpsmtpd/SMTP.pm      | 3 ---
 2 files changed, 1 insertion(+), 11 deletions(-)

diff --git a/lib/Qpsmtpd/Constants.pm b/lib/Qpsmtpd/Constants.pm
index 65f82e7..cceb10a 100644
--- a/lib/Qpsmtpd/Constants.pm
+++ b/lib/Qpsmtpd/Constants.pm
@@ -2,7 +2,7 @@ package Qpsmtpd::Constants;
 use strict;
 require Exporter;
 
-my (@common) = qw(OK DECLINED DONE DENY DENYSOFT TRACE DISCARD);
+my (@common) = qw(OK DECLINED DONE DENY DENYSOFT TRACE);
 
 use vars qw($VERSION @ISA @EXPORT);
 @ISA    = qw(Exporter);
@@ -15,7 +15,6 @@ use constant DENY     => 901;
 use constant DENYSOFT => 902;
 use constant DECLINED => 909;
 use constant DONE     => 910;
-use constant DISCARD  => 920;
 
 
 1;
@@ -59,12 +58,6 @@ on to the next plugin.
 Returning this from a hook implies success, but tells qpsmtpd to
 skip any remaining plugins for this phase.
 
-=item C<DISCARD>
-
-This can only be returned for the DATA phase. It tells qpsmtpd to
-return 250 to the client implying delivery success, but silently
-drops the email.
-
 =back
 
 =cut
diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index 759d46a..869b75e 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -403,9 +403,6 @@ sub data {
   elsif ($rc == DENYSOFT) {
     $self->respond(452, $msg || "Message denied temporarily");
   } 
-  elsif ($rc == DISCARD) {
-    $self->respond(250, $msg || "Message quietly discarded");
-  }
   else {
     $self->queue($self->transaction);    
   }