From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Sun, 6 Sep 2015 12:47:43 +0000 (+0000)
Subject: nnimap.el:  Handle nil arg to nnimap-request-group
X-Git-Tag: emacs-25.0.90~1225^2~14
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3fb7881a0e320f380203c0f2dd16dfc7189af1e9;p=emacs.git

nnimap.el:  Handle nil arg to nnimap-request-group

* lisp/gnus/nnimap.el (nnimap-request-group):  Handle nil "info" arg.
This arg isn't always passed in, check it's not nil before making it
into a list.  The active arg will also be nil if the group is new,
check for that.
---

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index 20ba0a310f8..ac228f9c04e 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -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))