From: yamaoka <yamaoka>
Date: Tue, 30 Nov 1999 06:18:09 +0000 (+0000)
Subject: (nnimap-request-newgroups): Don't use `member-if'.
X-Git-Tag: t-gnus-6_13_3-07~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7d7ede87b652fd6885b9b2ecd1b983c89c38f947;p=elisp%2Fgnus.git-

(nnimap-request-newgroups): Don't use `member-if'.
---

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 55a7dc5..d474728 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -938,12 +938,15 @@ function is generally only called when Gnus is shutting down."
       (erase-buffer)
       (dolist (pattern (nnimap-pattern-to-list-arguments
 			nnimap-list-pattern))
-	(dolist (mbx (imap-mailbox-lsub "*" (car pattern) nil 
+	(dolist (mbx (imap-mailbox-lsub "*" (car pattern) nil
 					nnimap-server-buffer))
-	  (or (member-if (lambda (mailbox)
-			   (string= (downcase mailbox) "\\noselect"))
-			 (imap-mailbox-get 'list-flags mbx
-					   nnimap-server-buffer))
+	  (or (let ((mailboxes (imap-mailbox-get 'list-flags mbx
+						 nnimap-server-buffer)))
+		(while (and mailboxes
+			    (not (string-equal (downcase (car mailboxes))
+					       "\\noselect")))
+		  (pop mailboxes))
+		mailboxes)
 	      ;; Escape SPC in mailboxes xxx relies on gnus internals
 	      (let ((info (nnimap-find-minmax-uid mbx 'examine)))
 		(when info