From 2921bdaa564fb5327d4ad771548af6512b0614c7 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 29 Jan 1999 19:18:19 +0000 Subject: [PATCH] (gnus-retrieve-parsed-headers): Use `gnus-cache-retrieve-parsed-headers' instead of `gnus-cache-retrieve-headers'. --- lisp/gnus-int.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) 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 +;; MORIOKA Tomohiko ;; 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 -- 1.7.10.4