Remove any LMTP.

diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm
index 56c28cb..64a6925 100644 (file)
--- a/PerlMail/Config.pm
+++ b/PerlMail/Config.pm
@@ -44,7 +44,7 @@ require Mail::Alias;
 
 BEGIN {
        for (qw(headerhas store headeris did dnsbl store_muttrc_alternates Received_for parts_linear mime_type
-                       body_first mimehead spamassassin clamscan header_remap lmtp_deliver)) {
+                       body_first mimehead spamassassin clamscan header_remap)) {
                eval 'sub '.$_.' { return ::'.$_.'(@_); }';
                }
        }
@@ -70,17 +70,6 @@ our $MaxBodySMS=0x1000;
 our @SMSwebRcpt=qw(123 456 789123);
 # Some WWW::SMS modules require username:
 our $SMSwebRcpt_username="SMSUSERNAME";
-our $lmtp_admin="cyrus";
-our $lmtp_pwd;
-{
-       local *F;
-       open F,"$HOME/priv/lmtp.${lmtp_admin}.pwd" or die;
-       $lmtp_pwd=<F>;
-       chomp $lmtp_pwd;
-       close F or die;
-       }
-our $lmtp_user_from="USERNAME";
-our $lmtp_user_to="CYRUSUSERNAME";
 our $clamscan_waitpid_timeout=3;
 
 
@@ -261,10 +250,6 @@ sub audit
        # lists
        store "=LIST","log"          if headeris "List-Id"  ,'<SOME.ID.OF.THE.LIST>';
 
-       if (($isFROM_MAILER && !did) || !did) {
-               lmtp_deliver $lmtp_admin,$lmtp_pwd,$lmtp_user_from,$lmtp_user_to;
-               }
-
        store "=errm","bell"         if $isFROM_MAILER && !did();
 
        if (!did) {