From 154c33a2431e47f244d39bd65cddb15a942b9849 Mon Sep 17 00:00:00 2001
From: lace <>
Date: Fri, 16 Jul 2010 07:19:37 +0000
Subject: [PATCH] Remove any LMTP.

---
 PerlMail/Config.pm | 17 +----------------
 1 file changed, 1 insertion(+), 16 deletions(-)

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) {
-- 
1.8.3.1