From: hmurata <hmurata>
Date: Fri, 12 Oct 2001 13:54:26 +0000 (+0000)
Subject: * elmo-imap4.el (elmo-folder-list-subfolders): Fixed problem;
X-Git-Tag: wl-2_7_6~25
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e3d1f387b8f6ebf0e33bb44e84856f3f858b8b47;p=elisp%2Fwanderlust.git

* elmo-imap4.el (elmo-folder-list-subfolders): Fixed problem;
Return duplicate folder if it has subfolder.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 2500ca6..3d79d6a 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-12  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-imap4.el (elmo-folder-list-subfolders): Fixed problem;
+	Return duplicate folder if it has subfolder.
+
 2001-10-11  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo.el (elmo-make-folder): Add folder name error check.
diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index 6215b53..f9e64b2 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -1871,14 +1871,6 @@ Return nil if no complete line has arrived."
 		     elmo-imap4-server-namespace)))
 		 elmo-imap4-default-hierarchy-delimiter))
 	 result append-serv type)
-    ;; Append delimiter
-;;    (if (and root
-;;	     (not (string= root ""))
-;;	     (not (string-match (concat "\\(.*\\)"
-;;					(regexp-quote delim)
-;;					"\\'")
-;;				root)))
-;;	(setq root (concat root delim)))
     (setq result (elmo-imap4-response-get-selectable-mailbox-list
 		  (elmo-imap4-send-command-wait
 		   session
@@ -1907,41 +1899,39 @@ Return nil if no complete line has arrived."
 				    (elmo-network-stream-type-spec-string
 				     type)))))
     (if one-level
-	(let (folder folders ret)
-	  (while (setq folders (car result))
-	    (if (prog1
-		    (string-match
-		     (concat "^\\(" root "[^" delim "]" "+\\)" delim)
-			  folders)
-		  (setq folder (match-string 1 folders)))
-		(progn
-		  (setq ret
-			(append ret
-				(list
-				 (list
-				  (concat
-				   prefix
-				   (elmo-imap4-decode-folder-string folder)
-				   (and append-serv
-					(eval append-serv)))))))
-		  (setq result
-			(delq
-			 nil
-			 (mapcar '(lambda (fld)
-				    (unless
-					(string-match
-					 (concat "^" (regexp-quote folder) delim)
+	(let ((re-delim (regexp-quote delim))
+	      folder ret has-child-p)
+	  ;; Append delimiter
+	  (when (and root
+		     (not (string= root ""))
+		     (not (string-match
+			   (concat "\\(.*\\)" re-delim "\\'")
+			   root)))
+	    (setq root (concat root delim)))
+	  (while (setq folder (car result))
+	    (when (string-match
+		   (concat "^\\(" (regexp-quote root) "[^" re-delim "]" "+\\)"
+			   re-delim)
+		   folder)
+	      (setq folder (match-string 1 folder)))
+	    (setq has-child-p nil
+		  result (delq
+			  nil
+			  (mapcar (lambda (fld)
+				    (if (string-match
+					 (concat "^" (regexp-quote folder)
+						 "\\(" re-delim "\\|\\'\\)")
 					 fld)
+					(progn (setq has-child-p t) nil)
 				      fld))
-				 result))))
-	      (setq ret (append
-			 ret
-			 (list
-			  (concat prefix
-				  (elmo-imap4-decode-folder-string folders)
-				  (and append-serv
-				       (eval append-serv))))))
-	      (setq result (cdr result))))
+				  (cdr result)))
+		  folder (concat prefix
+				 (elmo-imap4-decode-folder-string folder)
+				 (and append-serv
+				      (eval append-serv)))
+		  ret (append ret (if has-child-p
+				      (list (list folder))
+				    (list folder)))))
 	  ret)
       (mapcar (lambda (fld)
 		(concat prefix (elmo-imap4-decode-folder-string fld)