Re: Huge memory consumption on accessing large newsgroup

[Sven Joachim <svenjoac@gmx.de>]

Katsumi Yamaoka <yamaoka@jpl.org> writes:

> I overlooked that the argument of this function can be complicated.
> Try the following one instead:
>
> (defadvice gnus-uncompress-range (before narrow-range (ranges) activate)
>   "Narrow the range if it is unreasonably wide."
>   (let ((ttl 10000)
> 	(rest (if (and (cdr ranges) (not (consp (cdr ranges))))
> 		  (list ranges)
> 		(nreverse ranges)))
> 	range diff)
>     (setq ranges nil)
>     (while rest
>       (setq range (car rest)
> 	    rest (cdr rest))
>       (if (numberp range)
> 	  (progn
> 	    (push range ranges)
> 	    (setq ttl (1- ttl)))
> 	(if (= ttl 1)
> 	    (progn
> 	      (push (cdr range) ranges)
> 	      (setq ttl 0))
> 	  (setq diff (min (- (cdr range) (car range) -1) ttl)
> 		ttl (- ttl diff))
> 	  (push (cons (max (car range) (- (cdr range) diff -1))
> 		      (cdr range))
> 		ranges)))
>       (when (zerop ttl)
> 	(setq rest nil)))))

Does not seem to help much, it seems. :-)  With this advice, Emacs'
memory footprint grew to 303 MB on accessing be.politics at
news.motzarella.org, another random example of a group with supposedly
30m+ articles.  And fetching 50 headers increased it to 574 MB.

Kind regards,
             Sven