From f3c5355c6b0576521693ed8da30a5dcd7a22a04c Mon Sep 17 00:00:00 2001 From: Stephen Gildea Date: Wed, 1 Sep 2021 20:42:28 -0700 Subject: [PATCH] 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. --- lisp/net/tramp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.2