fileio.c (do_auto_save_make_dir): Make the auto-save-list-file

directory unreadable for better user privacy.

diff --git a/src/ChangeLog b/src/ChangeLog
index 859a6465f85d34a3992e6b6fed5e4a875ca29a72..79a1dab60de163fdee382f4856a7c1b81ad9ca24 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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 --git a/src/fileio.c b/src/fileio.c
index d109f0346525cff67913e22636f2c172b90eda33..839bf86af5353de524fde0aae5a603ebcfd15ea2 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -5853,7 +5853,11 @@ static Lisp_Object
 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