]> git.eshelyaron.com Git - emacs.git/commitdiff
nnimap.el: Handle nil arg to nnimap-request-group
authorEric Abrahamsen <eric@ericabrahamsen.net>
Sun, 6 Sep 2015 12:47:43 +0000 (12:47 +0000)
committerKatsumi Yamaoka <yamaoka@jpl.org>
Sun, 6 Sep 2015 12:47:43 +0000 (12:47 +0000)
* 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.

lisp/gnus/nnimap.el

index 20ba0a310f82e1a4a2e7e7698b18c4d217744bee..ac228f9c04e18cf915d1844982259d8c44718317 100644 (file)
@@ -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))