badrcptto ignores $reason

[email protected] (frank) Mon, 20 Jul 2015 01:19:09 -0400 (EDT)
Newsgroups perl.qpsmtpd
Message-ID <[email protected]>
The badrcptto plugin says it lets you give a custom response for a 
matching regex but the code doesn't appear to use it. Shouldn't it be 
something like this?

Thanks
-frank


diff --git a/plugins/badrcptto b/plugins/badrcptto
index 0dec099..eb3d31c 100644
--- a/plugins/badrcptto
+++ b/plugins/badrcptto
@@ -66,7 +66,7 @@ sub hook_rcpt {
          if ($self->is_match($to, lc($bad), $host)) {
              $self->adjust_karma(-2);
              if ($reason) {
-                return DENY, "mail to $bad not accepted here";
+                return DENY, $reason;
              }
              else {
                  return Qpsmtpd::DSN->no_such_user(