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

representation.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 25c18b5..5b3bb07 100644 (file)
--- 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 (file)
--- 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."