[gnus git] branch master updated: m0-13-61-g965fb88 =1= nnimap.el: Handle nil arg to nnimap-request-group

       via  965fb88c162e2d725ee472a999eee94c08844d74 (commit)
      from  2c102003004f4fa3dd5fe1f56c66936f386c4359 (commit)


- Log -----------------------------------------------------------------
commit 965fb88c162e2d725ee472a999eee94c08844d74
Author: Eric Abrahamsen <[email protected]>
Date:   Sat Sep 5 10:09:04 2015 +0800

    nnimap.el:  Handle nil arg to nnimap-request-group
    
    * 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/ChangeLog b/lisp/ChangeLog
index 98536b0..7326267 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2015-09-05  Eric Abrahamsen  <[email protected]>
+
+	* 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.
+
 2015-09-03  Paul Eggert  <[email protected]>
 
 	* gmm-utils.el (gmm-image-load-path-for-library):
diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index 20ba0a3..ac228f9 100644
--- a/lisp/nnimap.el
+++ b/lisp/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))

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog |    7 +++++++
 lisp/nnimap.el |    6 ++++--
 2 files changed, 11 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project