# HG changeset patch
# User Stephen Gildea <gildea@stop.mail-abuse.org>
# Date 1152358960 0
# Node ID 9e578ef3e05c9cd45f2cfa16cf6f45312f660f69
# Parent  d59a1ce7278596ee8b2e2e0308e205a4befac995
fileio.c (do_auto_save_make_dir): Make the auto-save-list-file
directory unreadable for better user privacy.

diff -r d59a1ce72785 -r 9e578ef3e05c src/ChangeLog
--- a/src/ChangeLog	Sat Jul 08 01:45:46 2006 +0000
+++ b/src/ChangeLog	Sat Jul 08 11:42:40 2006 +0000
@@ -1,3 +1,8 @@
+2006-07-08  Stephen Gildea  <gildea@stop.mail-abuse.org>
+
+	* fileio.c (do_auto_save_make_dir): Make the auto-save-list-file
+	directory unreadable for better user privacy.
+
 2006-07-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* syntax.c (Fforward_comment): Fix int-32 vs EMACS_INT-64 mixup.
diff -r d59a1ce72785 -r 9e578ef3e05c src/fileio.c
--- a/src/fileio.c	Sat Jul 08 01:45:46 2006 +0000
+++ b/src/fileio.c	Sat Jul 08 11:42:40 2006 +0000
@@ -5853,7 +5853,11 @@
 do_auto_save_make_dir (dir)
      Lisp_Object dir;
 {
-  return call2 (Qmake_directory, dir, Qt);
+  Lisp_Object mode;
+
+  call2 (Qmake_directory, dir, Qt);
+  XSETFASTINT (mode, 0700);
+  return Fset_file_modes (dir, mode);
 }
 
 static Lisp_Object