From f1ad720251f77b62cb73186a8aa8c0d90d9f1e18 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 15 Dec 1999 08:03:06 +0000 Subject: [PATCH] (nnimap-request-newgroups): Use `member-if'. --- lisp/nnimap.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) 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 -- 1.7.10.4