Merge branch 'master' of http://git.gnus.org/gnus into SYgnus

[gnus] / lisp / nnimap.el

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 20ba0a3..05251ed 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -1,6 +1,6 @@
 ;;; nnimap.el --- IMAP interface for Gnus
 
-;; Copyright (C) 2010-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2010-2016 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;;         Simon Josefsson <simon@josefsson.org>
@@ -807,6 +807,7 @@ textual parts.")
                     nil
                   group)
                 server))
+       (info (when info (list info)))
        active)
     (with-current-buffer nntp-server-buffer
       (when result
@@ -814,10 +815,11 @@ textual parts.")
                  (not (setq active
                             (nth 2 (assoc group nnimap-current-infos)))))
          (let ((sequences (nnimap-retrieve-group-data-early
-                           server (list info))))
-           (nnimap-finish-retrieve-group-infos server (list info) sequences
+                           server info)))
+           (nnimap-finish-retrieve-group-infos server info sequences
                                                t)
            (setq active (nth 2 (assoc group nnimap-current-infos)))))
+       (setq active (or active '(0 . 1)))
        (erase-buffer)
        (insert (format "211 %d %d %d %S\n"
                        (- (cdr active) (car active))