From: morioka <morioka>
Date: Tue, 12 Jan 1999 11:36:01 +0000 (+0000)
Subject: (gnus-select-newsgroup): Use `gnus-retrieve-parsed-headers' instead of
X-Git-Tag: chaos-1_12-199901121900~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f8091c666bcc7850c2d68d3938657b7eb7a439c8;p=elisp%2Fgnus.git-

(gnus-select-newsgroup): Use `gnus-retrieve-parsed-headers' instead of
`gnus-retrieve-headers' and `gnus-get-newsgroup-headers-xover' or
`gnus-get-newsgroup-headers'.
---

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.