From: yoichi <yoichi>
Date: Tue, 10 May 2005 03:53:56 +0000 (+0000)
Subject: * wl-fldmgr.el (wl-fldmgr-add): Undo the last change.
X-Git-Tag: wl-2_15_3~76
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9e46ea3de96f0c354d7978fc96da3fa0fcdf0055;hp=1d0406205da71b79464d253050603e9552e04ef5;p=elisp%2Fwanderlust.git

* wl-fldmgr.el (wl-fldmgr-add): Undo the last change.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b2248db..57e3ff2 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,7 @@
+2005-05-10  Yoichi NAKAYAMA  <yoichi@geiin.org>
+
+	* wl-fldmgr.el (wl-fldmgr-add): Undo the last change.
+
 2005-04-22  Tetsurou Okazaki  <okazaki@be.to>
 
 	* wl-spam.el (wl-summary-test-spam): Fix typo.
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index ec79f5b..821e144 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -831,34 +831,20 @@ return value is diffs '(-new -unread -all)."
 	(setq indent (wl-fldmgr-make-indent (nth 1 tmp)))
 	(or name
 	    (setq name (wl-fldmgr-read-string
-			(wl-summary-read-folder wl-default-folder
-						"to add" nil t))))
-	(let ((parent (nth 2 (wl-fldmgr-get-path-from-buffer))))
-	  (if (eq (cdr parent) 'access)
-	      (if (string-match
-		   (format "^%s" (regexp-quote (car parent))) name)
-		  ;; force update access group
-		  (progn
-		    (wl-folder-confirm-existence
-		     (wl-folder-get-elmo-folder name))
-		    (wl-folder-open-close)
-		    (wl-folder-jump-to-current-entity t)
-		    (setq ret-val t))
-		(error "Can't insert folder under access group"))
-	    (wl-folder-confirm-existence (wl-folder-get-elmo-folder name))
-	    ;; maybe add elmo-plugged-alist.
-	    (elmo-folder-set-plugged (wl-folder-get-elmo-folder
-				      (if (listp name) (car name) name))
-				     wl-plugged t)
-	    (when (setq diffs
-			(wl-add-entity
-			 path (list name) wl-folder-entity (nth 3 tmp) t))
-	      (wl-folder-insert-entity indent name)
-	      (wl-fldmgr-update-group path diffs)
-	      (setq wl-fldmgr-modified t)
-	      (set-buffer-modified-p nil)
-	      (setq ret-val t)))
-	  ret-val)))))
+			(wl-summary-read-folder wl-default-folder "to add"))))
+	;; maybe add elmo-plugged-alist.
+	(elmo-folder-set-plugged (wl-folder-get-elmo-folder
+				  (if (listp name) (car name) name))
+				 wl-plugged t)
+	(when (setq diffs
+		    (wl-add-entity
+		     path (list name) wl-folder-entity (nth 3 tmp) t))
+	  (wl-folder-insert-entity indent name)
+	  (wl-fldmgr-update-group path diffs)
+	  (setq wl-fldmgr-modified t)
+	  (set-buffer-modified-p nil)
+	  (setq ret-val t)))
+      ret-val)))
 
 (defun wl-fldmgr-delete ()
   (interactive)