From: teranisi <teranisi>
Date: Sat, 6 Dec 2003 04:14:56 +0000 (+0000)
Subject: * mime-play.el 	(mime-require-safe-directory): New function.
X-Git-Tag: semi-1_14_6~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=be8e91e7faa4f308b99366bf9ad88fab1cb3a994;p=elisp%2Fsemi.git

* mime-play.el 	(mime-require-safe-directory): New function.
(mime-store-message/partial-piece): Use it.
---

diff --git a/ChangeLog b/ChangeLog
index 9a1fe9d..dfc81db 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-12-06  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* mime-play.el 	(mime-require-safe-directory): New function.
+	(mime-store-message/partial-piece): Use it.
+
 2003-12-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* 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