From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Stephen Gildea Newsgroups: gmane.emacs.devel Subject: patch to create auto-save-list-file unreadable Date: Sun, 02 Jul 2006 23:04:47 -0400 Message-ID: <11883.1151895887@ma.gildea.net> NNTP-Posting-Host: main.gmane.org X-Trace: sea.gmane.org 1151895903 6012 80.91.229.2 (3 Jul 2006 03:05:03 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 3 Jul 2006 03:05:03 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Jul 03 05:05:01 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FxEk8-0003NF-AF for ged-emacs-devel@m.gmane.org; Mon, 03 Jul 2006 05:05:00 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FxEk7-0001bF-LV for ged-emacs-devel@m.gmane.org; Sun, 02 Jul 2006 23:04:59 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1FxEjx-0001b6-1E for emacs-devel@gnu.org; Sun, 02 Jul 2006 23:04:49 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1FxEjw-0001as-3K for emacs-devel@gnu.org; Sun, 02 Jul 2006 23:04:48 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FxEjv-0001ap-Vd for emacs-devel@gnu.org; Sun, 02 Jul 2006 23:04:47 -0400 Original-Received: from [24.61.40.140] (helo=small.ma.gildea.net) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA:32) (Exim 4.52) id 1FxExI-0006x9-5c for emacs-devel@gnu.org; Sun, 02 Jul 2006 23:18:36 -0400 Original-Received: by small.ma.gildea.net (Postfix, from userid 1000) id 27D2630C06A; Sun, 2 Jul 2006 23:04:47 -0400 (EDT) Original-Received: from ma.gildea.net (localhost [127.0.0.1]) by small.ma.gildea.net (Postfix) with ESMTP id 1D34430C060 for ; Sun, 2 Jul 2006 23:04:47 -0400 (EDT) Original-To: emacs-devel@gnu.org X-Mailer: MH-E 8.0; nmh 1.1; GNU Emacs 21.4.1 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:56400 Archived-At: 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 + + * 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 * 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