patch to create auto-save-list-file unreadable

patch to create auto-save-list-file unreadable

[Stephen Gildea]

If there are no objections, I'd like to check in the following patch 
to the Emacs CVS tree.

 < Stephen


Index: src/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/src/ChangeLog,v
retrieving revision 1.5157
diff -u -r1.5157 ChangeLog
--- src/ChangeLog	1 Jul 2006 23:28:38 -0000	1.5157
+++ src/ChangeLog	2 Jul 2006 09:30:13 -0000
@@ -1,3 +1,8 @@
+2006-07-02  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-02  Kim F. Storm  <storm@cua.dk>
 
 	* xdisp.c (display_tool_bar_line): Skip glyphs which are too big
Index: src/fileio.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/fileio.c,v
retrieving revision 1.567
diff -u -r1.567 fileio.c
--- src/fileio.c	23 Jun 2006 10:19:11 -0000	1.567
+++ src/fileio.c	2 Jul 2006 09:30:14 -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

Re: patch to create auto-save-list-file unreadable

[Richard Stallman]

It bothers me in spirit, but I won't object to it.