Don't error out on empty non-UIDNEXT groups.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dfa63bc..098cd07 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2010-10-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnimap.el (nnimap-request-group): Low higher than high to signal no
+       messages in empty groups.
+
+2010-10-01  Ted Zlatanov  <tzz@lifelogs.com>
+
+       * nnimap.el (nnimap-request-group): Don't bug out when there's an empty
+       non-UIDNEXT group.
+
 2010-10-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-group.el (gnus-group-completing-read): Return the symbol name,

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 68ee9d4..0aaa797 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -623,10 +623,11 @@ textual parts.")
                (nnimap-update-infos marks (list info)))
              (goto-char (point-max))
              (let ((uidnext (nth 5 (car marks))))
-               (setq high (if uidnext
-                              (1- uidnext)
-                            (nth 3 (car marks)))
-                     low (or (nth 4 (car marks)) uidnext)))))
+               (setq high (or (if uidnext
+                                   (1- uidnext)
+                                 (nth 3 (car marks)))
+                               0)
+                     low (or (nth 4 (car marks)) uidnext 1)))))
          (erase-buffer)
          (insert
           (format