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

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 9f027fb..8cd98f2 100644 (file)
--- 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