Re: Checking new mail very slow with current CVS

[Sebastian Krause <krause@sdbk.de>]

Simon Josefsson <jas@extundo.com> writes:
> Russ Allbery <rra@stanford.edu> writes:
>> However, the speed difference is still very noticeable.  What follows is
>> two elp-results from instrumenting both "gnus" and "nn"; the first is from
>> Oort (CVS pull as of a few days ago) and the second is from 5.8.7.
>
> Thank you.  FWIW, I can reproduce this.  Gnus 5.9.0 from Emacs 21 is
> faster than Oort Gnus 0.0.4 (8 seconds vs 12 seconds for me).  The
> following speed things up, but I don't think everything can be blamed
> on this.  Does it have any effect for you?

I had the same problem with the current CVS and your patch solved my
problem that Gnus takes a long time when I hit 'g' in the Group
buffer. Could anyone please patch the current CVS with Simon's
following patch, it seems to me that this solution isn't in the CVS
yet, because i still had the problem with the current Oort Gnus from
a few hours ago.

> --- nntp.el.~6.15.~	Tue Oct 30 18:47:08 2001
> +++ nntp.el	Thu Dec 27 16:31:50 2001
> @@ -396,15 +396,15 @@
>  			    nntp-address nntp-port-number nntp-server-buffer
>  			    wait-for nnheader-callback-function)
>        ;; If nothing to wait for, still remove possibly echo'ed commands
> -      (unless wait-for
> -	(nntp-accept-response)
> -	(save-excursion
> -	  (set-buffer buffer)
> -	  (goto-char pos)
> -	  (if (looking-at (regexp-quote command))
> -	      (delete-region pos (progn (forward-line 1) (gnus-point-at-bol))))
> +;      (unless wait-for
> +;	(nntp-accept-response)
> +;	(save-excursion
> +;	  (set-buffer buffer)
> +;	  (goto-char pos)
> +;	  (if (looking-at (regexp-quote command))
> +;	      (delete-region pos (progn (forward-line 1) (gnus-point-at-bol))))
> +;	  )))
>  	  )))
> -    ))
>
>  (defun nntp-send-command-nodelete (wait-for &rest strings)
>    "Send STRINGS to server and wait until WAIT-FOR returns."

Sebastian