From 7d7ede87b652fd6885b9b2ecd1b983c89c38f947 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 30 Nov 1999 06:18:09 +0000 Subject: [PATCH] (nnimap-request-newgroups): Don't use `member-if'. --- lisp/nnimap.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) 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 -- 1.7.10.4