(nnimap-update-info): If the server doesn't return any useful info, just use the...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c316444..81b131a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-10  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnimap.el (nnimap-update-info): If the server doesn't return any
+       useful info, just use the previous info.
+
 2010-10-10  Andrew Cohen  <cohen@andy.bu.edu>
 
        * nnir.el (autoload): Clean up autoloads.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 6a1c3f5..53f4f96 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1038,7 +1038,9 @@ textual parts.")
      ;; completely empty groups.
      ((and (not existing)
           (not uidnext))
-      )
+      (let ((active (cdr (assq 'active (gnus-info-params info)))))
+       (when active
+         (gnus-set-active (gnus-info-group info) active))))
      ;; We have a mismatch between the old and new UIDVALIDITY
      ;; identifiers, so we have to re-request the group info (the next
      ;; time).  This virtually never happens.
@@ -1051,9 +1053,11 @@ textual parts.")
       (gnus-group-remove-parameter info 'modseq))
      ;; We have the data needed to update.
      (t
-      (let ((group (gnus-info-group info))
-           (completep (and start-article
-                           (= start-article 1))))
+      (let* ((group (gnus-info-group info))
+            (completep (and start-article
+                            (= start-article 1)))
+            (active (or (cdr (assq 'active (gnus-info-params info)))
+                        (gnus-active group))))
        (when uidnext
          (setq high (1- uidnext)))
        ;; First set the active ranges based on high/low.
@@ -1068,12 +1072,14 @@ textual parts.")
                               (cons uidnext (1- uidnext)))
                              (start-article
                               (cons start-article (1- start-article)))
+                             (active
+                              active)
                              (t
                               ;; No articles and no uidnext.
                               nil)))
          (gnus-set-active
           group
-          (cons (car (gnus-active group))
+          (cons (car active)
                 (or high (1- uidnext)))))
        ;; See whether this is a read-only group.
        (unless (eq permanent-flags 'not-scanned)