From be8e91e7faa4f308b99366bf9ad88fab1cb3a994 Mon Sep 17 00:00:00 2001 From: teranisi Date: Sat, 6 Dec 2003 04:14:56 +0000 Subject: [PATCH] * mime-play.el (mime-require-safe-directory): New function. (mime-store-message/partial-piece): Use it. --- ChangeLog | 5 +++++ mime-play.el | 17 +++++++++++++++++ 2 files changed, 22 insertions(+) diff --git a/ChangeLog b/ChangeLog index 9a1fe9d..dfc81db 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-12-06 Yuuichi Teranishi + + * mime-play.el (mime-require-safe-directory): New function. + (mime-store-message/partial-piece): Use it. + 2003-12-05 Katsumi Yamaoka * mime-play.el (mime-store-message/partial-piece): Fix diff --git a/mime-play.el b/mime-play.el index a3df177..c766828 100644 --- a/mime-play.el +++ b/mime-play.el @@ -346,6 +346,22 @@ It is registered to variable `mime-preview-quitting-method-alist'." ;;; @ message/partial ;;; +(defun mime-require-safe-directory (dir) + "Create a directory DIR safely. +The permission of the created directory becomes `700' (for the owner only). +If the directory already exists and is writable by other users, an error +occurs." + (let ((orig-modes (default-file-modes))) + (if (file-directory-p dir) + (unless (or (memq system-type '(windows-nt ms-dos OS/2 emx)) + (eq (file-modes dir) 448)) + (error "Invalid permission for %s" dir)) + (unwind-protect + (progn + (set-default-file-modes 448) + (make-directory dir)) + (set-default-file-modes orig-modes))))) + (defun mime-store-message/partial-piece (entity cal) (let* ((root-dir (expand-file-name @@ -356,6 +372,7 @@ It is registered to variable `mime-preview-quitting-method-alist'." file (mother (current-buffer)) (orig-modes (default-file-modes))) + (mime-require-safe-directory root-dir) (or (file-exists-p root-dir) (unwind-protect (progn -- 1.7.10.4