SMTP.pm patch

[Peter Eisch]

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

--- SMTP.pm.orig        Mon Nov 22 12:45:22 2004
+++ SMTP.pm     Mon Nov 22 12:46:38 2004
@@ -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("<>");
     }