X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=PerlMail%2FConfig.pm;fp=PerlMail%2FConfig.pm;h=64a6925c199722d63cdb4cd2713514d8e2e17004;hp=56c28cbc929590e8a83b15e477cef9ad3a908677;hb=154c33a2431e47f244d39bd65cddb15a942b9849;hpb=c6aeb2044adc46f259f2e78eef7121e627535b52

diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm
index 56c28cb..64a6925 100644
--- 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) {