From: kaoru <kaoru>
Date: Thu, 26 Oct 2000 12:54:51 +0000 (+0000)
Subject: * elmo-util.el (elmo-make-directory): Fixed permission lateral
X-Git-Tag: wl-2_4-root~72
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5325fdb0a3cc321570b102291327983bfee28e0c;p=elisp%2Fwanderlust.git

* elmo-util.el (elmo-make-directory): Fixed permission lateral
representation.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 25c18b5..5b3bb07 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,8 @@
 2000-10-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* elmo-util.el (elmo-make-directory): Fixed permission lateral
+	representation.
+
 	* elmo-util.el (elmo-string-matched-member): New function.
 
 2000-10-26  Yuuichi Teranishi  <teranisi@gohome.org>
diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el
index 365ffd2..5fc32e4 100644
--- a/elmo/elmo-util.el
+++ b/elmo/elmo-util.el
@@ -1050,8 +1050,7 @@ Otherwise treat \\ in NEWTEXT string as special:
 	(elmo-make-directory parent))
     (make-directory path)
     (if (string= path (expand-file-name elmo-msgdb-dir))
-	(set-file-modes path 448) ; 700
-      )))
+	(set-file-modes path (+ (* 64 7) (* 8 0) 0))))) ; chmod 0700
 
 (defun elmo-delete-directory (path &optional no-hierarchy)
   "Delete directory recursively."