# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283731002 0
# Node ID b6a0e73c6b46bde447342ae0e44af216c363b857
# Parent  bf2aa62d9d6c28ec56997e281481cd04190e6d4c
nnimap.el (nnimap-request-list): Servers may return \NoSelect case-insensitively.

diff -r bf2aa62d9d6c -r b6a0e73c6b46 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sun Sep 05 23:49:02 2010 +0000
+++ b/lisp/gnus/ChangeLog	Sun Sep 05 23:56:42 2010 +0000
@@ -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 -r bf2aa62d9d6c -r b6a0e73c6b46 lisp/gnus/nnimap.el
--- a/lisp/gnus/nnimap.el	Sun Sep 05 23:49:02 2010 +0000
+++ b/lisp/gnus/nnimap.el	Sun Sep 05 23:56:42 2010 +0000
@@ -1118,14 +1118,16 @@
       (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))