From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/15564 Path: main.gmane.org!not-for-mail From: Mike McEwan Newsgroups: gmane.emacs.gnus.general Subject: Expiry of `headers only' groups Date: Mon, 06 Jul 1998 17:10:06 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.108) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035154574 22803 80.91.224.250 (20 Oct 2002 22:56:14 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:56:14 +0000 (UTC) Return-Path: Original-Received: from gwyn.tux.org (gwyn.tux.org [207.96.122.8]) by altair.xemacs.org (8.9.1/8.9.1) with ESMTP id NAA11639 for ; Sat, 11 Jul 1998 13:22:26 -0700 Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by gwyn.tux.org (8.8.8/8.8.8) with ESMTP id QAA19659 for ; Sat, 11 Jul 1998 16:19:28 -0400 Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id OAT12557; Sat, 11 Jul 1998 14:52:36 -0500 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 11 Jul 1998 15:15:29 -0500 (CDT) Original-Received: from Post-Office.UH.EDU (pmdf@Post-Office.UH.EDU [129.7.1.20]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id PAA02966 for ; Sat, 11 Jul 1998 15:15:10 -0500 (CDT) Original-Received: from sclp3.sclp.com by Post-Office.UH.EDU (PMDF V5.1-10 #U2811) with ESMTP id <0EVX009ABJQSUM@Post-Office.UH.EDU> for ding@hpc.uh.edu; Sat, 11 Jul 1998 07:23:16 -0500 (CDT) Original-Received: from post.mail.demon.net (post-12.mail.demon.net [194.217.242.41]) by sclp3.sclp.com (8.8.5/8.8.5) with SMTP id IAA05314 for ; Sat, 11 Jul 1998 08:23:12 -0400 (EDT) Original-Received: from (lotusland.demon.co.uk) [158.152.62.156] by post.mail.demon.net with smtp (Exim 1.82 #2) id 0yuygI-0003Un-00; Sat, 11 Jul 1998 12:23:10 +0000 Original-Received: from mike by lotusland.demon.co.uk with local (Exim 1.950 #1) for ding@gnus.org id 0yuygH-00008m-00; Sat, 11 Jul 1998 13:23:09 +0100 Original-To: ding@gnus.org X-Mailer: Gnus v5.6.23/XEmacs 20.4 - "Emerald" X-From-Line: nobody Mon Jul 6 17:10:06 1998 X-Gnus-Article-Number: 333 Mon Jul 6 17:10:06 1998 Original-Lines: 62 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:15564 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:15564 Wehey, I can get through to gnus.org again! A small change at my ISP (or somewhere) resulted in my earlier posts on this subject evapourating into the ether somehow, so here goes again: "Well `gnus-agent-expire' seems to be working a bit better these days (apart from the occasional partial NOV line in my .overviews). One last things I wished expiry processing would handle was the expiration of headers in groups where I *only* download headers, specifically marking articles for download when they seem of interest. As it stood `gnus-agent-expire' would only expire headers if I happened to have downloaded at least one article in such groups. This is usually fine, but I was getting thousands of headers accumulating in high activity groups (e.g. comp.lang.c) where I hadn't downloaded an article for a while. The number of group headers would get so large that I found myself reluctant to select these groups from the group buffer because it took so long to prepare the summary buffer, adding to the problem :-). The following patch inserts a line in the Agent history file for each group, detailing the last header downloaded for a group in a given session. Come expiry time, headers are now expired even if no articles have been downloaded. My `headers only' groups are now a little more manageable." I could have it so that such the `last-fetched' lines were only inserted into the history file where the download predicate for a given group was `false', but I was unsure as to what other weird and wonderful predicates people may have out there. -- Mike. --- ChangeLog.orig Wed Jul 1 12:34:41 1998 +++ ChangeLog Sun Jul 5 15:18:18 1998 @@ -1,3 +1,8 @@ +1998-07-05 Mike McEwan + + * gnus-agent.el (gnus-agent-fetch-headers): Note last fetched + headers per sesion to aid expiry in `headers only' groups. + Wed Jul 1 13:33:26 1998 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.6.23 is released. --- gnus-agent.el.orig Wed Jul 1 12:34:42 1998 +++ gnus-agent.el Sun Jul 5 17:38:54 1998 @@ -769,8 +769,11 @@ (gnus-make-directory (nnheader-translate-file-chars (file-name-directory file))) (write-region (point-min) (point-max) file nil 'silent) - (gnus-agent-save-alist group articles nil)) - t)))) + (gnus-agent-save-alist group articles nil) + (gnus-agent-enter-history "last-header-fetched-for-session" + (list (cons group (nth (- (length articles) 1) articles))) + (gnus-time-to-day (current-time))) + t))))) (defsubst gnus-agent-copy-nov-line (article) (let (b e)