Bug#253505: libmail-audit-perl: Mail::Audit::list_accept doesn't deliver to maildirs

[Mark A. Hershberger]

Package: libmail-audit-perl
Version: 2.1-3
Severity: important
Tags: patch


--- lib/Mail/Audit/List.pm~	2001-03-28 10:42:54.000000000 -0500
+++ lib/Mail/Audit/List.pm	2003-05-13 13:53:48.000000000 -0400
@@ -21,7 +21,12 @@
   } else {
     my $name = $list->listname;
     $name =~ tr/A-Za-z0-9_-//dc;
-    my $deliver_filename = join '/', $dir, $name;
+    my $deliver_filename;
+     if($self->mbox_or_maildir($dir) eq 'maildir') {
+       $deliver_filename = "$dir/.$name/"; # Force to maildir
+     } else {
+       $deliver_filename = join '/', $dir, $name;
+    }
     $self->accept($deliver_filename);
     return $deliver_filename;
   }

Diff finished.  Wed Jun  9 15:55:13 2004




-- System Information:
Debian Release: testing/unstable
  APT prefers testing
  APT policy: (500, 'testing')
Architecture: i386 (i686)
Kernel: Linux 2.6.6-1-686
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8

Versions of packages libmail-audit-perl depends on:
ii  libmailtools-perl             1.62-1     Manipulate email in perl programs
ii  libmime-perl                  5.411-3    Perl5 modules for MIME-compliant m
ii  libnet-perl                   1:1.18-2   Implementation of Internet protoco
ii  perl                          5.8.3-3    Larry Wall's Practical Extraction 
ii  perl-modules [libnet-perl]    5.8.3-3    Core Perl modules.

-- no debconf information