From: morioka <morioka>
Date: Fri, 29 Jan 1999 19:18:19 +0000 (+0000)
Subject: (gnus-retrieve-parsed-headers): Use
X-Git-Tag: chaos-1_12_2~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2921bdaa564fb5327d4ad771548af6512b0614c7;p=elisp%2Fgnus.git-

(gnus-retrieve-parsed-headers): Use
`gnus-cache-retrieve-parsed-headers' instead of
`gnus-cache-retrieve-headers'.
---

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 0abe781..22f602c 100644
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -1,7 +1,8 @@
-;;; gnus-int.el --- backend interface functions for Gnus
-;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
+;;; gnus-int.el --- backend interface functions for Chaos
+;; Copyright (C) 1996,97,98,99 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
+;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Keywords: news
 
 ;; This file is part of GNU Emacs.
@@ -296,8 +297,9 @@ If FETCH-OLD, retrieve all headers (or some subset thereof) in the group."
   (let ((gnus-command-method (gnus-find-method-for-group group))
 	headers)
     (if (and gnus-use-cache (numberp (car articles)))
-	(setq gnus-headers-retrieved-by
-	      (gnus-cache-retrieve-headers articles group fetch-old))
+	(setq headers
+	      (gnus-cache-retrieve-parsed-headers articles group fetch-old
+						  dependencies force-new))
       (let ((func (gnus-get-function gnus-command-method
 				     'retrieve-parsed-headers 'no-error)))
 	(if func