--- TNEF.pm	Wed Sep 12 15:46:56 2007
+++ TNEF.pm	Wed Sep 12 15:47:15 2007
@@ -217,6 +217,7 @@
                               "$dir/$unpackdir");
     return 0;
   }
+  chmod(0700, "$dir/$unpackdir");
 
   my $cmd = MailScanner::Config::Value('tnefexpander') .
             " -f $dir/$tnefname -C $dir/$unpackdir --overwrite";
