From 8703ea5358af50c74f3958cc699707731b253ecc Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 11 Dec 2007 05:48:40 +0000 Subject: [PATCH] (url-make-private-file): New function. --- lisp/url/url-util.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el index 119f40b4da4..865c3981ec1 100644 --- a/lisp/url/url-util.el +++ b/lisp/url/url-util.el @@ -523,6 +523,28 @@ Has a preference for looking backward when not directly on a symbol." (set (make-local-variable 'url-current-mime-headers) (mail-header-extract))))) +(defun url-make-private-file (file) + "Make FILE only readable and writable by the current user. +Creates FILE and its parent directories if they do not exist." + (let ((dir (file-name-directory file))) + (when dir + ;; For historical reasons. + (make-directory dir t))) + ;; Based on doc-view-make-safe-dir. + (condition-case nil + (let ((umask (default-file-modes))) + (unwind-protect + (progn + (set-default-file-modes #o0600) + (with-temp-buffer + (write-region (point-min) (point-max) + file nil 'silent nil 'excl))) + (set-default-file-modes umask))) + (file-already-exists + (if (file-symlink-p file) + (error "Danger: `%s' is a symbolic link" file)) + (set-file-modes file #o0600)))) + (provide 'url-util) ;; arch-tag: 24352abc-5a5a-412e-90cd-313b26bed5c9 -- 2.39.2