From 0bca1908b8a435b5ade1dbebeb9f98207e81d9c4 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 6 Feb 2011 08:46:10 -0800 Subject: [PATCH] (nntp-finish-retrieve-group-infos): Protect against the first part not returning any data. --- lisp/ChangeLog | 3 +++ lisp/nntp.el | 6 ++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 05d311404..6f5bfeb2d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2011-02-06 Lars Ingebrigtsen + * nntp.el (nntp-finish-retrieve-group-infos): Protect against the first + part not returning any data. + * proto-stream.el (open-protocol-stream): Document the return value. 2011-02-06 Julien Danjou diff --git a/lisp/nntp.el b/lisp/nntp.el index cae0150dd..0e009b206 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -781,7 +781,8 @@ command whose response triggered the error." ;; The first time this is run, this variable is `try'. So we ;; try. (when (eq nntp-server-list-active-group 'try) - (nntp-try-list-active (gnus-group-real-name (gnus-info-group (car infos))))) + (nntp-try-list-active + (gnus-group-real-name (gnus-info-group (car infos))))) (with-current-buffer (nntp-find-connection-buffer nntp-server-buffer) (erase-buffer) (let ((nntp-inhibit-erase t) @@ -800,7 +801,8 @@ command whose response triggered the error." (car infos))) (received 0) (last-point 1)) - (when buf + (when (and buf + count) (with-current-buffer buf (while (and (gnus-buffer-live-p buf) (progn -- 2.25.1