From de4b054eac0ab8809730a9aaa35953083bf96e00 Mon Sep 17 00:00:00 2001 From: Yuki Inoue Date: Sun, 15 May 2016 12:32:25 +0000 Subject: [PATCH] Fix cache's file permission to 600 Since cache includes private information, (the auth-info), it's permission should be set to 600. --- sx-cache.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/sx-cache.el b/sx-cache.el index 4770fc2c..a2b4440a 100644 --- a/sx-cache.el +++ b/sx-cache.el @@ -73,9 +73,12 @@ DATA will be written as returned by `prin1'. CACHE is resolved to a file name by `sx-cache-get-file-name'." (sx-cache--ensure-sx-cache-directory-exists) - (let (print-length print-level) + (let (print-length + print-level + (cache-file-name (sx-cache-get-file-name cache))) (write-region (prin1-to-string data) nil - (sx-cache-get-file-name cache))) + cache-file-name) + (set-file-modes cache-file-name #o600)) data) (defun sx-cache--invalidate (cache &optional vars init-method)