* wl-fldmgr.el (wl-fldmgr-save-folders): Fixed permission lateral

representation.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 116ba43..ca6bc7b 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,8 @@
 2000-10-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+       * wl-fldmgr.el (wl-fldmgr-save-folders): Fixed permission lateral
+       representation.
+
        * wl-fldmgr.el (wl-fldmgr-folders-header): Include version
        number.
        (wl-fldmgr-save-folders): Don't use `format' when insert

diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 5379a7c..96c4484 100644 (file)
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -1328,7 +1328,7 @@ return value is diffs '(-new -unread -all)."
        wl-folders-file
        nil
        'no-msg)
-      (set-file-modes wl-folders-file 384)) ; 600
+      (set-file-modes wl-folders-file (+ (* 64 6) (* 8 0) 0))) ; chmod 0600
     (kill-buffer tmp-buf)
     (while access-list
       (setq entity (wl-folder-search-group-entity-by-name