X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-fldmgr.el;h=fb5b1359b3d85392a26fa267c1edd497b86d1d7b;hb=8a81d3a3caef0f94f9721361a749f0b6429f30ce;hp=4e38b4006806e1b06892ec8b1a2e7321836daa3c;hpb=56146522133dc618336a5a16fd9e390fb84164d5;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 4e38b40..fb5b135 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -387,11 +387,11 @@ return value is diffs '(-new -unread -all)."
 	    (cond
 	     ((stringp (car new2)) ;; folder
 	      (cond
-	       ((wl-string-member (car new2) flist)
+	       ((elmo-string-member (car new2) flist)
 		(and errmes (message "%s: already exists" (car new2)))
 		(throw 'success nil))
 	       ((and access
-		     (not (wl-string-member (car new2) unsubscribes)))
+		     (not (elmo-string-member (car new2) unsubscribes)))
 		(and errmes (message "%s: not access group folder" (car new2)))
 		(throw 'success nil))))
 	     (t			   ;; group
@@ -920,6 +920,7 @@ return value is diffs '(-new -unread -all)."
 	   new-folder
 	   (wl-folder-get-entity-info old-folder))
 	  (wl-folder-clear-entity-info old-folder)
+	  (setq wl-folder-info-alist-modified t)
 	  (if (eq (cdr (nth 2 tmp)) 'access)
 
 	      ;; force update access group
@@ -1151,7 +1152,8 @@ return value is diffs '(-new -unread -all)."
 	    (setq indent (wl-fldmgr-make-indent (nth 1 tmp)))
 	    (if (eq (cdr (nth 2 tmp)) 'access)
 		(when (wl-fldmgr-cut tmp)
-		  (pop wl-fldmgr-cut-entity-list)  ;; don't leave cut-list
+		  ;; don't leave cut-list
+		  (setq wl-fldmgr-cut-entity-list (cdr wl-fldmgr-cut-entity-list))
 		  (setq beg (point))
 		  (insert indent wl-folder-unsubscribe-mark
 			  (if is-group