From: kaoru <kaoru>
Date: Thu, 26 Oct 2000 15:22:31 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-save-folders): Fixed permission lateral
X-Git-Tag: wl-2_4-root~69
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=17b90bd3b0a053ecef2e9347f42a6ec8a082b387;p=elisp%2Fwanderlust.git

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 116ba43..ca6bc7b 100644
--- 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
--- 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