image-dired: Fix gallery directory permissions

* lisp/image/image-dired.el (image-dired-gallery-generate): Set
umask to 077 before creating gallery directory.
This commit is contained in:
Stefan Kangas 2023-08-04 15:24:46 +02:00
parent 5683c4bad3
commit 3f8db3bbe5

View file

@ -1905,8 +1905,8 @@ when using per-directory thumbnail file storage"))
(if (file-exists-p image-dired-gallery-dir)
(if (not (file-directory-p image-dired-gallery-dir))
(error "Variable image-dired-gallery-dir is not a directory"))
;; FIXME: Should we set umask to 077 here, as we do for thumbnails?
(make-directory image-dired-gallery-dir))
(with-file-modes #o700
(make-directory image-dired-gallery-dir)))
;; Open index file
(with-temp-file index-file
(if (file-exists-p index-file)