Re: Benchmarking Gnus

[Jesper Harder <harder@ifa.au.dk>]

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

larsi@gnus.org (Lars Magne Ingebrigtsen) writes:

> There are now three things that take about the same time when entering
> a group, and account for 95% of the time spent:
>
> 1) parsing NOV headers (this has gotten slower due to MIME stuff, I'm
>    guessing)
> 2) scoring
> 3) creating and outputting the threads
>
> If someone wants to look closer at this, then I'm all for it.  :-)

Here's a small tweak, which speeds up threading a bit (around 5-10%):
`gnus-parent-id' is usually called without the optional argument -- in
that case we only want the last msg.id in References, so we don't really
need to call `gnus-split-references' to parse *all* the references and
build a list of them.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus-util.el.diff --]
[-- Type: text/x-patch, Size: 679 bytes --]

--- ../../gnus/lisp/gnus-util.el	Wed Jan 16 05:14:26 2002
+++ gnus-util.el	Fri Jan 18 22:58:21 2002
@@ -479,10 +479,13 @@
 If N, return the Nth ancestor instead."
   (when (and references
 	     (not (zerop (length references))))
-    (let ((ids (inline (gnus-split-references references))))
-      (while (nthcdr (or n 1) ids)
-	(setq ids (cdr ids)))
-      (car ids))))
+    (if n
+	(let ((ids (inline (gnus-split-references references))))
+	  (while (nthcdr n ids)
+	    (setq ids (cdr ids)))
+	  (car ids))
+      (when (string-match "<[^> \t]+>\\'" references)
+	(match-string 0 references)))))
 
 (defun gnus-buffer-live-p (buffer)
   "Say whether BUFFER is alive or not."