From f32737bf4be0c8f83dbe8a3704bc1d88a570ae09 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 1 Oct 2010 20:55:39 +0200 Subject: [PATCH] Don't error out on empty non-UIDNEXT groups. --- lisp/ChangeLog | 10 ++++++++++ lisp/nnimap.el | 9 +++++---- 2 files changed, 15 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dfa63bcae..098cd07b4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2010-10-01 Lars Magne Ingebrigtsen + + * nnimap.el (nnimap-request-group): Low higher than high to signal no + messages in empty groups. + +2010-10-01 Ted Zlatanov + + * nnimap.el (nnimap-request-group): Don't bug out when there's an empty + non-UIDNEXT group. + 2010-10-01 Lars Magne Ingebrigtsen * gnus-group.el (gnus-group-completing-read): Return the symbol name, diff --git a/lisp/nnimap.el b/lisp/nnimap.el index 68ee9d4e3..0aaa797b8 100644 --- 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 -- 2.25.1