From: yoichi <yoichi>
Date: Tue, 6 Jul 2004 14:06:01 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-save-access-list): New function
X-Git-Tag: wl-2_11_31~72
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bc1231ca26790cd4bf107d0bf6db325edd1cde7d;p=elisp%2Fwanderlust.git

* wl-fldmgr.el (wl-fldmgr-save-access-list): New function
extracted from `wl-fldmgr-save-folders'.
(wl-fldmgr-delete): Call it after deletion.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 096613a..93174ff 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2004-07-06  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-fldmgr.el (wl-fldmgr-save-access-list): New function
+	extracted from `wl-fldmgr-save-folders'.
+	(wl-fldmgr-delete): Call it after deletion.
+
 2004-07-03  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-e21.el (wl-plugged-set-folder-icon): Follow the change for
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index b04b1e5..f457aac 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -852,7 +852,8 @@ return value is diffs '(-new -unread -all)."
 	   (entity (elmo-string (nth 4 tmp)))
 	   (folder (wl-folder-get-elmo-folder entity)))
       (when (elmo-folder-delete folder)
-	(wl-fldmgr-cut tmp nil t)))))
+	(wl-fldmgr-cut tmp nil t)
+	(wl-fldmgr-save-access-list)))))
 
 (defun wl-fldmgr-rename ()
   (interactive)
@@ -1338,8 +1339,6 @@ return value is diffs '(-new -unread -all)."
 (defun wl-fldmgr-save-folders ()
   (interactive)
   (let ((tmp-buf (get-buffer-create " *wl-fldmgr-tmp*"))
-	(access-list wl-fldmgr-modified-access-list)
-	entity
 	save-petname-entities)
     (message "Saving folders...")
     (set-buffer tmp-buf)
@@ -1364,6 +1363,13 @@ return value is diffs '(-new -unread -all)."
        'no-msg)
       (set-file-modes wl-folders-file (+ (* 64 6) (* 8 0) 0))) ; chmod 0600
     (kill-buffer tmp-buf)
+    (wl-fldmgr-save-access-list)
+    (setq wl-fldmgr-modified nil)
+    (message "Saving folders...done")))
+
+(defun wl-fldmgr-save-access-list ()
+  (let ((access-list wl-fldmgr-modified-access-list)
+	entity)
     (while access-list
       (setq entity (wl-folder-search-group-entity-by-name
 		    (car access-list) wl-folder-entity))
@@ -1373,9 +1379,7 @@ return value is diffs '(-new -unread -all)."
 	(wl-folder-make-save-access-list (nth 2 entity))
 	(wl-folder-make-save-access-list (nth 3 entity))))
       (setq access-list (cdr access-list)))
-    (setq wl-fldmgr-modified nil)
-    (setq wl-fldmgr-modified-access-list nil)
-    (message "Saving folders...done")))
+    (setq wl-fldmgr-modified-access-list nil)))
 
 (require 'product)
 (product-provide (provide 'wl-fldmgr) (require 'wl-version))