Re: No Gnus v0.4 / emacs-cvs terribly slowly operating on large nnfolders

[Miles Bader <miles@gnu.org>]

Romain Francoise <romain@orebokech.com> writes:
> -	(while (and (search-forward marker nil t)
> -		    (re-search-forward number nil t))
> -	  (let ((newnum (string-to-number (match-string 0))))
> +      (let ((head (concat "\n" nnfolder-article-marker "\\([0-9]+\\)"))
> +	     numbers)
> +	(while (re-search-forward head nil t)
> +	  (let ((newnum (string-to-number (match-string 1))))

The replacement doesn't seem to do exactly the same thing:  in the
original code, it starts searching for [0-9]+ after finding the article
marker, but there can be intervening characters (including newlines).
[I dunno whether the format of the means that the two should actually be
immediately adjacent,]

Also you probably want to regexp-quote nnfolder-article-marker.

-Miles
-- 
`Suppose Korea goes to the World Cup final against Japan and wins,' Moon said.
`All the past could be forgiven.'   [NYT]