From: Stephen Gildea <stepheng+emacs@gildea.com>
Date: Thu, 2 Sep 2021 03:42:28 +0000 (-0700)
Subject: tramp-auto-save-directory: make private
X-Git-Tag: emacs-28.0.90~1231
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f3c5355c6b0576521693ed8da30a5dcd7a22a04c;p=emacs.git

tramp-auto-save-directory: make private

* lisp/net/tramp.el (tramp-handle-make-auto-save-file-name):
chmod 0700 tramp-auto-save-directory when creating

Thanks to Michael Albinus for reviewing this patch.
---

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 11c417f832e..9ed9da92434 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -5419,7 +5419,8 @@ this file, if that variable is non-nil."
     ;; Create directory.
     (unless (or (null tramp-auto-save-directory)
 		(file-exists-p tramp-auto-save-directory))
-      (make-directory tramp-auto-save-directory t))
+      (make-directory tramp-auto-save-directory t)
+      (set-file-modes tramp-auto-save-directory #o0700))
 
     (let ((system-type
 	   (if (and (stringp tramp-auto-save-directory)