From ed2ab5f5fd9a9b856f15b73f0ab755fe63eb5731 Mon Sep 17 00:00:00 2001
From: Robert Spier <robert@perl.org>
Date: Thu, 2 Dec 2004 07:26:11 +0000
Subject: [PATCH] From: Nick Leverton <> Subject: SPF plugin: using it in
 practice (PATCH attached for CVS) Date: Tue, 30 Nov 2004 11:35:30 +0000
 Message-ID: <20041130113530.GA31737@leverton.org>

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@355 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/sender_permitted_from | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/sender_permitted_from b/plugins/sender_permitted_from
index bec7c16..4d7b989 100644
--- a/plugins/sender_permitted_from
+++ b/plugins/sender_permitted_from
@@ -45,7 +45,7 @@ sub mail_handler {
   # If we are receving from a relay permitted host, then we are probably
   # not the delivery system, and so we shouldn't check
 
-  return (DECLINED) if exists $ENV{RELAYCLIENT};
+  return (DECLINED) if $self->qp->connection->relay_client();
   my @relay_clients = $self->qp->config("relayclients");
   my $more_relay_clients = $self->qp->config("morerelayclients", "map");
   my %relay_clients = map { $_ => 1 } @relay_clients;