Small speedup PATCH to gnus-summary-insert-new-articles

Small speedup PATCH to gnus-summary-insert-new-articles

[Jason Merrill]

[-- Attachment #1: Type: text/plain, Size: 359 bytes --]

In an earlier patch (2001-04-12) I added the nreverse below so that the
articles would be listed in the right order.  Shortly after sending that
patch, I realized that we might as well just build up the list in the right
order.

2001-11-04  Jason Merrill  <jason@redhat.com>

	* gnus-sum.el (gnus-summary-insert-new-articles): Count down to
	avoid nreverse.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 1008 bytes --]

*** gnus-sum.el.~1~	Fri Jul 19 13:07:23 2002
--- gnus-sum.el	Fri Jul 19 13:05:41 2002
*************** If ALL is a number, fetch this number of
*** 11092,11104 ****
  	    i new)
  	(setq gnus-newsgroup-active
  	      (gnus-activate-group gnus-newsgroup-name 'scan))
! 	(setq i (1+ (cdr old-active)))
! 	(while (<= i (cdr gnus-newsgroup-active))
  	  (push i new)
! 	  (incf i))
  	(if (not new)
  	    (message "No gnus is bad news.")
- 	  (setq new (nreverse new))
  	  (gnus-summary-insert-articles new)
  	  (setq gnus-newsgroup-unreads
  		(gnus-sorted-nunion gnus-newsgroup-unreads new))
--- 11092,11103 ----
  	    i new)
  	(setq gnus-newsgroup-active
  	      (gnus-activate-group gnus-newsgroup-name 'scan))
! 	(setq i (cdr gnus-newsgroup-active))
! 	(while (> i (cdr old-active))
  	  (push i new)
! 	  (decf i))
  	(if (not new)
  	    (message "No gnus is bad news.")
  	  (gnus-summary-insert-articles new)
  	  (setq gnus-newsgroup-unreads
  		(gnus-sorted-nunion gnus-newsgroup-unreads new))

Re: Small speedup PATCH to gnus-summary-insert-new-articles

[Kai Großjohann]

Committed.
kai
-- 
A large number of young women don't trust men with beards.  (BFBS Radio)