projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8e78c87
)
(nnimap-request-newgroups): Use `member-if'.
author
yamaoka
<yamaoka>
Wed, 15 Dec 1999 08:03:06 +0000
(08:03 +0000)
committer
yamaoka
<yamaoka>
Wed, 15 Dec 1999 08:03:06 +0000
(08:03 +0000)
lisp/nnimap.el
patch
|
blob
|
history
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))
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
;; Escape SPC in mailboxes xxx relies on gnus internals
(let ((info (nnimap-find-minmax-uid mbx 'examine)))
(when info