Re: Improving Gnus speed

[Francis Moreau <francis.moro@gmail.com>]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Francis Moreau <francis.moro@gmail.com> writes:
>
>>   gnus-thread-total-score-1               82494       17.134565999  0.00020770
>
> Geez.  How many articles was this?  

BTW, even if scoring is disabled in this group,
'gnus-thread-total-score' is still called a lot of time.

I can verify that scoring is disabled since all articles have a null
score in this group.

However looking at the backtrace below, it seems that the score is still
calculated...

Is it correct ?

The Backtrace is:

* gnus-thread-total-score(([8781 "Idees pour resoudre un probleme" "Francis Moreau <francis.moro@gmail.
  (format "%6d" (gnus-thread-total-score (and ... ...)))					       
  (insert (format "%6d" (gnus-thread-total-score ...)))						       
  (progn (gnus-add-text-properties (point) (progn ... ...) (quote ...)) (gnus-add-text-properties (poin
  eval((progn (gnus-add-text-properties (point) (progn ... ...) (quote ...)) (gnus-add-text-properties 
  (progn (eval gnus-summary-line-format-spec) (point))						       

  (gnus-put-text-property (point) (progn (eval gnus-summary-line-format-spec) (point)) (quote gnus-numb
  (progn (when (and gnus-tmp-dummy-line ...) (gnus-summary-insert-dummy-line gnus-tmp-dummy-line ...) (
  (if gnus-tmp-header (progn (when ... ... ...) (setq gnus-tmp-unread ...) (push ... gnus-newsgroup-dat
  (when gnus-tmp-header (when (and gnus-tmp-dummy-line ...) (gnus-summary-insert-dummy-line gnus-tmp-du
  (if (stringp gnus-tmp-header) (cond (... ... ... ... ...) (... ... ...) (... ... ...) (t ...)) (setq 
  (while (or threads stack gnus-tmp-new-adopts new-roots) (if (and ... ... ... ...) (if gnus-tmp-new-ad
  (if (vectorp (car threads)) (gnus-summary-prepare-unthreaded threads) (if gnus-summary-display-while-
  (let ((gnus-tmp-level 0) (default-score ...) (gnus-visual-p ...) (building-line-count gnus-summary-di

  gnus-summary-prepare-threads((([8781 "Idees pour resoudre un probleme" "Francis Moreau <francis.moro@
  (progn (gnus-summary-prepare-threads (if gnus-show-threads ... ...)))				       
  (if gnus-newsgroup-headers (progn (gnus-summary-prepare-threads ...)))			       
  (when gnus-newsgroup-headers (gnus-summary-prepare-threads (if gnus-show-threads ... ...)))	       
  (let ((inhibit-read-only t)) (erase-buffer) (setq gnus-newsgroup-data nil gnus-newsgroup-data-reverse

  gnus-summary-prepare()									       
  (if no-display nil (gnus-summary-prepare))							       
  (unless no-display (gnus-summary-prepare))							       
  (cond ((not new-group) (gnus-set-global-variables) (when kill-buffer ...) (gnus-configure-windows ...

Thanks
-- 
Francis