(nnimap-update-info): Fix macrology bug-out.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a49f3ae..a6472b0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,7 @@
        (nnimap-quirk): Add quirk for Gmail IMAP which bugs out on NUL
        characters.
        (nnimap-process-quirk): Renamed function to avoid collision.
        (nnimap-quirk): Add quirk for Gmail IMAP which bugs out on NUL
        characters.
        (nnimap-process-quirk): Renamed function to avoid collision.

+       (nnimap-update-info): Fix macrology bug-out.

 
 2011-02-06  Lars Ingebrigtsen  <larsi@gnus.org>
 
 
 2011-02-06  Lars Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 4ca7e7f..127082b 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1254,28 +1254,28 @@ textual parts.")
        (when uidnext
          (setq high (1- uidnext)))
        ;; First set the active ranges based on high/low.
        (when uidnext
          (setq high (1- uidnext)))
        ;; First set the active ranges based on high/low.

-       (gnus-set-active
-        group
-        (if (or completep
-                (not (gnus-active group)))
-            (cond
-             (active
-              (cons (min (or low (car active))
-                         (car active))
-                    (max (or high (cdr active))
-                         (cdr active))))
-             ((and low high)
-              (cons low high))
-             (uidnext
-              ;; No articles in this group.
-              (cons uidnext (1- uidnext)))
-             (start-article
-              (cons start-article (1- start-article)))
-             (t
-              ;; No articles and no uidnext.
-              nil))
-          (cons (car active)
-                (or high (1- uidnext)))))
+       (if (or completep
+               (not (gnus-active group)))
+           (gnus-set-active group
+                            (cond
+                             (active
+                              (cons (min (or low (car active))
+                                         (car active))
+                                    (max (or high (cdr active))
+                                         (cdr active))))
+                             ((and low high)
+                              (cons low high))
+                             (uidnext
+                              ;; No articles in this group.
+                              (cons uidnext (1- uidnext)))
+                             (start-article
+                              (cons start-article (1- start-article)))
+                             (t
+                              ;; No articles and no uidnext.
+                              nil)))
+         (gnus-set-active group
+                          (cons (car active)
+                                (or high (1- uidnext)))))

        ;; See whether this is a read-only group.
        (unless (eq permanent-flags 'not-scanned)
          (gnus-group-set-parameter
        ;; See whether this is a read-only group.
        (unless (eq permanent-flags 'not-scanned)
          (gnus-group-set-parameter