From 8aa32cdf34caeab1762e8c07442164e2c66de641 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 21 Feb 2011 00:47:13 -0800 Subject: [PATCH] Wait for the end of the LIST ACTIVE command, if we're using that. Instead of waiting for the beginning. --- lisp/ChangeLog | 2 ++ lisp/nntp.el | 6 +++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 31a382873..1a52db3d1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,8 @@ * nntp.el (nntp-finish-retrieve-group-infos): Add a kludge to use the given method as in the group name if we're using an extended method. + (nntp-finish-retrieve-group-infos): Wait for the end of the LIST ACTIVE + command, if we're using that, instead of waiting for the beginning. * gnus-start.el (gnus-get-unread-articles): Extend the methods so that we're sure to get unique server names, and we don't output two async diff --git a/lisp/nntp.el b/lisp/nntp.el index 837f91f1c..09ecfb8f6 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -808,7 +808,11 @@ command whose response triggered the error." (progn (goto-char last-point) ;; Count replies. - (while (re-search-forward "^[0-9]" nil t) + (while (re-search-forward + (if nntp-server-list-active-group + "^[.]" + "^[0-9]") + nil t) (incf received)) (setq last-point (point)) (< received count))) -- 2.25.1