From f8091c666bcc7850c2d68d3938657b7eb7a439c8 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 12 Jan 1999 11:36:01 +0000 Subject: [PATCH] (gnus-select-newsgroup): Use `gnus-retrieve-parsed-headers' instead of `gnus-retrieve-headers' and `gnus-get-newsgroup-headers-xover' or `gnus-get-newsgroup-headers'. --- lisp/gnus-sum.el | 22 ++++++++-------------- 1 file changed, 8 insertions(+), 14 deletions(-) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 359d8a5..1b8ec1f 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -3896,20 +3896,14 @@ If SELECT-ARTICLES, only select those articles from GROUP." ;; Retrieve the headers and read them in. (gnus-message 5 "Fetching headers for %s..." gnus-newsgroup-name) (setq gnus-newsgroup-headers - (if (eq 'nov - (setq gnus-headers-retrieved-by - (gnus-retrieve-headers - articles gnus-newsgroup-name - ;; We might want to fetch old headers, but - ;; not if there is only 1 article. - (and (or (and - (not (eq gnus-fetch-old-headers 'some)) - (not (numberp gnus-fetch-old-headers))) - (> (length articles) 1)) - gnus-fetch-old-headers)))) - (gnus-get-newsgroup-headers-xover - articles nil nil gnus-newsgroup-name t) - (gnus-get-newsgroup-headers))) + (gnus-retrieve-parsed-headers + articles gnus-newsgroup-name + ;; We might want to fetch old headers, but + ;; not if there is only 1 article. + (and (or (and (not (eq gnus-fetch-old-headers 'some)) + (not (numberp gnus-fetch-old-headers))) + (> (length articles) 1)) + gnus-fetch-old-headers))) (gnus-message 5 "Fetching headers for %s...done" gnus-newsgroup-name) ;; Kludge to avoid having cached articles nixed out in virtual groups. -- 1.7.10.4