[Emacs-diffs] /srv/bzr/emacs/trunk r101365: nnimap.el (nnimap-request-list): Servers may return \NoSelect case-insensitively.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101365
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2010-09-05 23:56:42 +0000
message:
  nnimap.el (nnimap-request-list): Servers may return \NoSelect 
case-insensitively.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnimap.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-09-05 23:38:33 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-05 23:56:42 +0000
@@ -1,5 +1,8 @@
 2010-09-05  Lars Magne Ingebrigtsen  <address@hidden>
 
+       * 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.
 

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2010-09-05 23:45:14 +0000
+++ b/lisp/gnus/nnimap.el       2010-09-05 23:56:42 +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))