To balance out with the rcpt logging diff'd against the CVS version

(peter@boku.net)


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@343 958fd67b-6ff1-0310-b445-bb7760255be9

lib/Qpsmtpd/SMTP.pm

@@ -233,6 +233,8 @@ sub mail {
     ($from) = "<" . ($from_parameter =~ m/^from:\s*(\S+)/i)[0] . ">"
       unless $from;
 
+    $self->log(LOGWARN, "$$ from email address : [$from]");
+
     if ($from eq "<>" or $from =~ m/\[undefined\]/) {
       $from = Qpsmtpd::Address->new("<>");
     }