diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2011-02-06 22:27:28 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2011-02-06 22:27:28 +0000 |
| commit | 76b8d9dd0ed6811c0fc1bbde5d9e3b0cf6c61cf1 (patch) | |
| tree | aa7146a9e12a219b55b296833497e8ff6854babc /lisp/gnus/nntp.el | |
| parent | e765a388299ce398f7f5cf57bc74b8134d785f43 (diff) | |
| download | emacs-76b8d9dd0ed6811c0fc1bbde5d9e3b0cf6c61cf1.tar.gz | |
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.
Diffstat (limited to 'lisp/gnus/nntp.el')
| -rw-r--r-- | lisp/gnus/nntp.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index cae0150dd17..0e009b2068b 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/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 |