+&lmtp_deliver for cyrus-imapd side delivery.

+=bashbug

diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm
index 9ca80cb..1b442c7 100644 (file)
--- a/PerlMail/Config.pm
+++ b/PerlMail/Config.pm
@@ -43,7 +43,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 header_remap)) {
+                       body_first mimehead spamassassin header_remap lmtp_deliver)) {
                eval 'sub '.$_.' { return ::'.$_.'(@_); }';
                }
        }
@@ -69,6 +69,17 @@ our $MaxBodySMS=0x1000;
 our @SMSwebRcpt=qw(420 602 431329);
 # Some WWW::SMS modules require username:
 our $SMSwebRcpt_username="lace2";
+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="lace";
+our $lmtp_user_to="lacemail";
 
 
 # perlmail-submit
@@ -435,6 +446,7 @@ sub audit
        store "=glibc","silent"      if headeris "Mailing-List",qr/\b\Qlibc-alpha-help\E@\Qsources.redhat.com\E\b/;
        store "=fedann","bell"       if headeris "List-Id"  ,'<fedora-announce-list.redhat.com>';
        store "=fedtools","log"      if headeris "List-Id"  ,'<fedora-tools-list.redhat.com>';
+       store "=bashbug","log"       if headeris "List-Id"  ,'<bug-bash.gnu.org>';
        # own webs
        store "=energie","bell"      if headeris "From"     ,qr/^EnergieWeb/;
        store "=ats","log"           if headeris("From"     ,'<root@ms.atspraha.cz>')
@@ -450,6 +462,10 @@ sub audit
        store "=koutecky","log"      if headeris "Return-Path",'<pk.petr@centrum.cz>';
        store "=koutecky","log"      if headeris "Return-Path",'<petr.koutecky@premisa.cz>';
 
+       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) {