From 0259ffa7534600e7b0a74e3a44ef12fa0d835558 Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 12 Jan 1999 11:32:15 +0000 Subject: [PATCH] (gnus-retrieve-parsed-headers): New function. --- lisp/gnus-int.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el index 8143d0d..4996a25 100644 --- a/lisp/gnus-int.el +++ b/lisp/gnus-int.el @@ -284,6 +284,16 @@ If FETCH-OLD, retrieve all headers (or some subset thereof) in the group." articles (gnus-group-real-name group) (nth 1 gnus-command-method) fetch-old)))) +(defun gnus-retrieve-parsed-headers (articles group &optional fetch-old) + "Request parsed-headers for ARTICLES in GROUP. +If FETCH-OLD, retrieve all headers (or some subset thereof) in the group." + (if (eq (setq gnus-headers-retrieved-by + (gnus-retrieve-headers articles group fetch-old)) + 'nov) + (gnus-get-newsgroup-headers-xover + articles nil nil gnus-newsgroup-name t) + (gnus-get-newsgroup-headers))) + (defun gnus-retrieve-articles (articles group) "Request ARTICLES in GROUP." (let ((gnus-command-method (gnus-find-method-for-group group))) -- 1.7.10.4