From 2fd504ce6a1b8f51c35809d241e1e75093520dc6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Tue, 10 Sep 2002 11:04:18 +0000
Subject: [PATCH] s/recipient/sender/ since this is the MAIL FROM filter ...
 :-)

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@65 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/check_badmailfrom | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/plugins/check_badmailfrom b/plugins/check_badmailfrom
index 2d0e3e1..70e8292 100644
--- a/plugins/check_badmailfrom
+++ b/plugins/check_badmailfrom
@@ -7,10 +7,10 @@ sub register {
 }
 
 sub mail_handler {
-  my ($self, $transaction, $recipient) = @_;
-  return (DECLINED) unless $recipient->host && $recipient->user;
-  my $host = lc $recipient->host;
-  my $from = $recipient->user . '@' . $host;
+  my ($self, $transaction, $sender) = @_;
+  return (DECLINED) unless $sender->host && $sender->user;
+  my $host = lc $sender->host;
+  my $from = $sender->user . '@' . $host;
   my @badmailfrom = $self->qp->config("badmailfrom");
   for my $bad (@badmailfrom) {
     $bad =~ s/^\s*(\S+)/$1/;