From: yamaoka <yamaoka>
Date: Wed, 15 Dec 1999 08:03:06 +0000 (+0000)
Subject: (nnimap-request-newgroups): Use `member-if'.
X-Git-Tag: t-gnus-6_14_0-12~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f1ad720251f77b62cb73186a8aa8c0d90d9f1e18;p=elisp%2Fgnus.git-

(nnimap-request-newgroups): Use `member-if'.
---

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 9f027fb..8cd98f2 100644
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -939,13 +939,10 @@ function is generally only called when Gnus is shutting down."
 			nnimap-list-pattern))
 	(dolist (mbx (imap-mailbox-lsub "*" (car pattern) nil
 					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)
+	  (or (member-if (lambda (mailbox)
+			   (string= (downcase mailbox) "\\noselect"))
+			 (imap-mailbox-get 'list-flags mbx
+					   nnimap-server-buffer))
 	      ;; Escape SPC in mailboxes xxx relies on gnus internals
 	      (let ((info (nnimap-find-minmax-uid mbx 'examine)))
 		(when info