X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;ds=sidebyside;f=lisp%2Fnnimap.el;h=d36f225d44d51c80f4e6f573e78ca167d693cfa0;hb=9a60f093f45ad3169be0d0cc4a2bf75ba599aca8;hp=4d42574810bd885ce75f91a2a5150924265a9fc1;hpb=56b41da86b54028a5c6fe1a789bfb892ad7aad8d;p=gnus

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 4d4257481..d36f225d4 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -70,6 +70,8 @@
 (require 'gnus-start)
 (require 'gnus-int)
 
+(eval-when-compile (require 'cl))
+
 (nnoo-declare nnimap)
 
 (defconst nnimap-version "nnimap 1.0")
@@ -1324,7 +1326,7 @@ function is generally only called when Gnus is shutting down."
       (nnimap-before-find-minmax-bugworkaround)
       (dolist (pattern (nnimap-pattern-to-list-arguments
 			nnimap-list-pattern))
-	(dolist (mbx (imap-mailbox-lsub "*" (car pattern) nil
+	(dolist (mbx (imap-mailbox-lsub (cdr pattern) (car pattern) nil
 					nnimap-server-buffer))
 	  (or (catch 'found
 		(dolist (mailbox (imap-mailbox-get 'list-flags mbx