--- mail_add-original	2007-05-12 18:09:35.000000000 -0300
+++ mail_add	2007-05-12 21:40:03.000000000 -0300
@@ -27,18 +27,24 @@ $( = $);
 
 my $PTH="/var/alternc/mail/".substr($mailname,0,1)."/".$mailname;
 
+mkdir($PTH);
+chown(33, $uid, $PTH);
+
 my @todo=(
-       $PTH,
        $PTH."/Maildir",
-       $PTH."/Maildir/cur",
-       $PTH."/Maildir/new",
-       $PTH."/Maildir/tmp",
+       $PTH."/Maildir/.Drafts",
+       $PTH."/Maildir/.Sent",
+       $PTH."/Maildir/.Trash",
        );
 
 foreach(@todo) {
-    mkdir($_);
-    chown(33, $uid, $_);
+    system("/usr/bin/maildirmake '$_'");
+    system("/bin/chown -R 33:'$uid' '$PTH'");
+    system("/bin/chmod -R 0750 '$PTH'");
 }
 
+system("/bin/cp /var/alternc/skel/mail/courierimapsubscribed '/var/alternc/mail/".substr($mailname,0,1)."/".$mailname."/Maildir'");
+system("/bin/chown -R 33:'$uid' '/var/alternc/mail/".substr($mailname,0,1)."/".$mailname."/Maildir/courierimapsubscribed'");
+
 0;