diff -Nurpa mimedefang-2.40-BETA-2.stock/mimedefang.c mimedefang-2.40-BETA-2/mimedefang.c
--- mimedefang-2.40-BETA-2.stock/mimedefang.c	2003-11-14 10:11:05.000000000 -0800
+++ mimedefang-2.40-BETA-2/mimedefang.c	2004-02-20 16:33:53.000000000 -0800
@@ -224,7 +224,7 @@ get_fd(struct privdata *data,
     if (sample_fd >= 0 && !ConserveDescriptors) return sample_fd;
 
     snprintf(buf, SMALLBUF, "%s/%s", data->dir, fname);
-    sample_fd = open(buf, O_CREAT|O_APPEND|O_RDWR, 0600);
+    sample_fd = open(buf, O_CREAT|O_APPEND|O_RDWR, 0660);
     if (sample_fd < 0) {
 	syslog(LOG_WARNING, "%s: Could not open %s/%s: %m",
 	       data->qid, data->dir, fname);
diff -Nurpa mimedefang-2.40-BETA-2.stock/mimedefang-multiplexor.c mimedefang-2.40-BETA-2/mimedefang-multiplexor.c
--- mimedefang-2.40-BETA-2.stock/mimedefang-multiplexor.c	2004-02-20 13:15:55.000000000 -0800
+++ mimedefang-2.40-BETA-2/mimedefang-multiplexor.c	2004-02-20 16:33:47.000000000 -0800
@@ -827,7 +827,7 @@ main(int argc, char *argv[])
 	exit(EXIT_FAILURE);
     }
     set_cloexec(sock);
-    (void) chmod(Settings.sockName, 0600);
+    (void) chmod(Settings.sockName, 0660);
 
     /* Set up an accept loop */
     if (!EventTcp_CreateAcceptor(es, sock, handleAccept)) {
diff -Nurpa mimedefang-2.40-BETA-2.stock/mimedefang.pl.in mimedefang-2.40-BETA-2/mimedefang.pl.in
--- mimedefang-2.40-BETA-2.stock/mimedefang.pl.in	2004-02-11 10:30:10.000000000 -0800
+++ mimedefang-2.40-BETA-2/mimedefang.pl.in	2004-02-20 16:33:11.000000000 -0800
@@ -1033,7 +1033,7 @@ sub get_quarantine_dir () {
 	$counter++;
 	$QuarantineSubdir = sprintf("%s/qdir-%s-%03d",
 				    $QuarantineDir, $tm, $counter);
-	if (mkdir($QuarantineSubdir, 0700)) {
+	if (mkdir($QuarantineSubdir, 0770)) {
 	    $success = 1;
 	}
     } while(!$success && ($tries++ < 1000));
@@ -4629,7 +4629,7 @@ sub do_scan ($) {
 
     # Create a subdirectory for storing all the actual message data
     my($msgdir) = "Work";
-    if (!mkdir($msgdir, 0700)) {
+    if (!mkdir($msgdir, 0770)) {
 	fatal("$MsgID: Cannot mkdir($msgdir): $!");
 	return -1;
     }
@@ -5599,7 +5599,7 @@ sub recipient_ok ($$$$$$$$) {
 sub print_message_structure () {
     my $parser = new MIME::Parser;
     my $filer = new MIME::Parser::ParanoidFiler("./Work");
-    mkdir("./Work", 0700);
+    mkdir("./Work", 0770);
     #MIME::Tools->debugging(1);
     $parser->filer($filer);
 
@@ -5634,7 +5634,7 @@ sub print_message_structure () {
 sub pretty_print_from_stdin () {
     my $parser = new MIME::Parser;
     my $filer = new MIME::Parser::ParanoidFiler("./Work");
-    mkdir("./Work", 0700);
+    mkdir("./Work", 0770);
     #MIME::Tools->debugging(1);
     $parser->filer($filer);