nnimap.el (nnimap-request-list): Servers may return \NoSelect case-insensitively.

2 files changed, 13 insertions, 8 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 24a5c8dee4e..d6d1f655404 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,8 @@
 2010-09-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+        * nnimap.el (nnimap-request-list): Servers may return \NoSelect
+        case-insensitively.
+
         * mail-source.el (mail-source-fetch): Don't message if we're fetching
         mail from a file, and the file doesn't exist.
 
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 574eb85c238..ba989a01194 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1118,14 +1118,16 @@ function is generally only called when Gnus is shutting down."
       (dolist (pattern (nnimap-pattern-to-list-arguments nnimap-list-pattern))
         (dolist (mbx (funcall nnimap-request-list-method
                               (cdr pattern) (car pattern)))
-          (or (member "\\NoSelect" (imap-mailbox-get 'list-flags mbx))
-              (let* ((encoded-mbx (nnimap-encode-group-name mbx))
-                     (info (nnimap-find-minmax-uid encoded-mbx 'examine)))
-                (when info
-                  (with-current-buffer nntp-server-buffer
-                    (insert (format "\"%s\" %d %d y\n"
-                                    encoded-mbx (or (nth 2 info) 0)
-                                    (max 1 (or (nth 1 info) 1)))))))))))
+          (unless (member "\\noselect"
+                          (mapcar #'downcase
+                                  (imap-mailbox-get 'list-flags mbx)))
+            (let* ((encoded-mbx (nnimap-encode-group-name mbx))
+                   (info (nnimap-find-minmax-uid encoded-mbx 'examine)))
+              (when info
+                (with-current-buffer nntp-server-buffer
+                  (insert (format "\"%s\" %d %d y\n"
+                                  encoded-mbx (or (nth 2 info) 0)
+                                  (max 1 (or (nth 1 info) 1)))))))))))
     (gnus-message 5 "nnimap: Generating active list%s...done"
                   (if (> (length server) 0) (concat " for " server) ""))
     t))