Faster group entry for some groups?

Faster group entry for some groups?

[Kai Großjohann]

I have groups for reading the bug reports and the CVS logs from
quimby.  Alas, when entering one of those groups, Gnus reads lots of
lots of data from the server, which takes quite some time.  (For the
bug reports, it wants to read >3M which can take >5 minutes.)

I have gnus-fetch-old-headers set to t by default, but changed it to
nil in the group parameters of the two groups in question.  Gnus still
reads lots of data when entering the group.

Is there a way to let me see old headers in most groups and still have
fast group entry for the two quimby groups?

kai
-- 
Beware of flying birch trees.

Re: Faster group entry for some groups?

[Janne Rinta-Manty]

Kai Großjohann 2000-05-05T11:44:50Z:
KG> I have gnus-fetch-old-headers set to t by default, but changed it
KG> to nil in the group parameters of the two groups in question.
KG> Gnus still reads lots of data when entering the group.

ISTM that this is again one of those things that you can't set in the
group parameters.

I was having a same kind of problem with this list, which I read from
sunsite.auc.dk. So I finally took the time to do some trial and error,
and this is my solution:

(add-hook 'gnus-summary-mode-hook 'jrm-fetch-old-headers-or-not)

(defun jrm-fetch-old-headers-or-not ()
  (setq gnus-fetch-old-headers
	(not (string-match "emacs.ding$" gnus-newsgroup-name))))

-- 
Janne Rinta-Mänty

Re: Faster group entry for some groups?

[Kai Großjohann]

Janne Rinta-Manty <jrm@iki.fi> writes:

> (add-hook 'gnus-summary-mode-hook 'jrm-fetch-old-headers-or-not)
> 
> (defun jrm-fetch-old-headers-or-not ()
>   (setq gnus-fetch-old-headers
> 	(not (string-match "emacs.ding$" gnus-newsgroup-name))))

Hm.  I have the following, and it doesn't work:

(defun kai-gnus-summary-set-cache ()
  (when (and gnus-newsgroup-name
             (stringp gnus-newsgroup-name)
             (string-match "^nnimap[:+]" gnus-newsgroup-name))
      (make-local-variable 'gnus-use-cache)
      (setq gnus-use-cache 'passive))
  (when (and gnus-newsgroup-name
             (stringp gnus-newsgroup-name)
             (string-match "^nntp\\+" gnus-newsgroup-name))
    (make-local-variable 'gnus-fetch-old-headers)
    (setq gnus-fetch-old-headers nil)))
(add-hook 'gnus-select-group-hook 'kai-gnus-summary-set-cache)

Is the make-local-variable the problem?

kai
-- 
Beware of flying birch trees.

Re: Faster group entry for some groups?

[Janne Rinta-Manty]

Kai Großjohann 2000-05-05T14:41:34Z:
KG> (defun kai-gnus-summary-set-cache ()
[...]
KG>   (when (and gnus-newsgroup-name
KG>              (stringp gnus-newsgroup-name)
KG>              (string-match "^nntp\\+" gnus-newsgroup-name))
KG>     (make-local-variable 'gnus-fetch-old-headers)
KG>     (setq gnus-fetch-old-headers nil)))

KG> Is the make-local-variable the problem?

I don't know - the following was OK for me:

(defun jrm-fetch-old-headers-or-not ()
  (make-local-variable 'gnus-fetch-old-headers)
  (setq gnus-fetch-old-headers
        (not (string-match "emacs.ding$" gnus-newsgroup-name))))

-- 
Janne Rinta-Mänty