From: Lars Magne Ingebrigtsen Date: Sun, 5 Sep 2010 23:56:42 +0000 (+0000) Subject: nnimap.el (nnimap-request-list): Servers may return \NoSelect case-insensitively. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~63 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3733ba53bb2f0970e17867e2e611ddc05ce1740d;p=emacs.git nnimap.el (nnimap-request-list): Servers may return \NoSelect case-insensitively. --- 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 + * 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))