(nnimap-request-group): Don't SELECT the group twice on `M-g'.
authorLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Mon, 18 Oct 2010 19:18:19 +0000 (21:18 +0200)
committerLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Mon, 18 Oct 2010 19:18:19 +0000 (21:18 +0200)
lisp/ChangeLog
lisp/nnimap.el

index 7be4326..263ca2f 100644 (file)
@@ -1,3 +1,8 @@
+2010-10-18  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * nnimap.el (nnimap-request-group): Don't SELECT the group twice on
+       `M-g'.
+
 2010-10-18  Andrew Cohen  <cohen@andy.bu.edu>
 
        * gnus-registry.el (gnus-registry-split-fancy-with-parent): Splitting
index 8f0a112..e0bd292 100644 (file)
@@ -617,7 +617,13 @@ textual parts.")
     (nreverse parts)))
 
 (deffoo nnimap-request-group (group &optional server dont-check info)
-  (let ((result (nnimap-possibly-change-group group server))
+  (let ((result (nnimap-possibly-change-group
+                ;; Don't SELECT the group if we're going to select it
+                ;; later, anyway.
+                (if dont-check
+                    nil
+                  group)
+                server))
        articles active marks high low)
     (with-current-buffer nntp-server-buffer
       (when result
@@ -634,6 +640,7 @@ textual parts.")
                   (nnimap-send-command "SELECT %S" (utf7-encode group t)))
                  (flag-sequence
                   (nnimap-send-command "UID FETCH 1:* FLAGS")))
+             (setf (nnimap-group nnimap-object) group)
              (nnimap-wait-for-response flag-sequence)
              (setq marks
                    (nnimap-flags-to-marks