Ignore groups that have no UIDNEXT values.

This sometimes happens on some groups that have no info.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 622cdf4..ec0ef59 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnimap.el (nnimap-update-info): Ignore groups that have no UIDNEXT
+       values.  This sometimes happens on some groups that have no info.
+
 2010-10-01  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-registry.el (gnus-registry-install-nnregistry): Move the feature

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 70aa573..ff1d2b8 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -990,7 +990,9 @@ textual parts.")
       (nnimap-update-info info (cdr (assoc group flags))))))
 
 (defun nnimap-update-info (info marks)
-  (when marks
+  (when (and marks
+            ;; Ignore groups with no UIDNEXT values.
+            (nth 4 marks))
     (destructuring-bind (existing flags high low uidnext start-article
                                  permanent-flags) marks
       (let ((group (gnus-info-group info))