From 2b199935664f062fdecc6805d745121c65befc10 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 28 Oct 1996 00:13:58 +0000 Subject: [PATCH] Don't purge the header database when updating the server info. This caused the newsreader startup to be extremely slow. --- v7/src/edwin/nntp.scm | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/v7/src/edwin/nntp.scm b/v7/src/edwin/nntp.scm index 6d4269c18..f339c8444 100644 --- a/v7/src/edwin/nntp.scm +++ b/v7/src/edwin/nntp.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: nntp.scm,v 1.11 1996/10/24 03:17:48 cph Exp $ +;;; $Id: nntp.scm,v 1.12 1996/10/28 00:13:58 cph Exp $ ;;; ;;; Copyright (c) 1995-96 Massachusetts Institute of Technology ;;; @@ -495,7 +495,7 @@ (define (news-group:last-article group) (and (news-group:active? group) (news-group:%last-article group))) - + (define (news-group:update-server-info! group) (set-news-group:server-info! group @@ -511,14 +511,7 @@ (begin (set-news-group:%estimated-n-articles! group (vector-ref info 0)) (set-news-group:%first-article! group (vector-ref info 1)) - (set-news-group:%last-article! group (vector-ref info 2)) - (let ((predicate - (lambda (number body?) - body? - (or (< number (news-group:%first-article group)) - (> number (news-group:%last-article group)))))) - (news-group:purge-header-cache group predicate) - (news-group:purge-pre-read-headers group predicate))) + (set-news-group:%last-article! group (vector-ref info 2))) (begin (set-news-group:%estimated-n-articles! group info) (set-news-group:%first-article! group #f) -- 2.25.1