Re: Group parameters and `(not gnus-article-sort-by-date)'

[Simon Josefsson <jas@extundo.com>]

Reiner Steib <reinersteib+gmane@imap.cc> writes:

> On Wed, Nov 09 2005, Simon Josefsson wrote:
>
> [ `gnus-article-sort-by-date-reverse' ]
>> I removed it.
>
> Thanks.
>
> It's also mentioned in the patch to gnus.texi:

Could you propose a patch?  Should we simply revert the patch, or
can we improve it somehow.

> ,----
> | @lisp
> | (require 'cl)
> | (defun my-gnus-summary-mode-hook-group-select ()
> |   (flet ((lsetq (x val) ;; Local setq
> |                 (set (make-local-variable x) val)))
> |     (cond
> |      ;;  In Group buffer to make Debian daily news group press: G m
> |      ;;  and point it to nntp server news.gmane.org and
> |      ;;  group gmane.linux.debian.user.news
> |      ((string-match "nntp.*debian.user.news" gnus-newsgroup-name)
> |       (lsetq 'gnus-show-threads nil)
> |       (lsetq 'gnus-article-sort-functions 'gnus-article-sort-by-date-reverse)
> |       (lsetq 'gnus-use-adaptive-scoring nil)
> |       (lsetq 'gnus-use-scoring nil))
> |      ;;  In Group buffer to read Debian weekly news RSS feed press: G R
> |      ;;  and point it to url:
> |      ;;  http://packages.debian.org/unstable/newpkg_main.en.rdf
> |      ((string-match "nnrss.*debian" gnus-newsgroup-name)
> |       (lsetq 'gnus-show-threads nil)
> |       (lsetq 'gnus-article-sort-functions 'gnus-article-sort-by-subject)
> |       (lsetq 'gnus-use-adaptive-scoring nil)
> |       (lsetq 'gnus-use-scoring t)
> |       (lsetq 'gnus-score-find-score-files-function 'gnus-score-find-single)
> |       (lsetq 'gnus-summary-line-format "%U%R%z%d %I%(%[ %s %]%)\n")))))
> | (defun my-gnus-summary-mode-hook  ()
> |   (my-gnus-summary-mode-hook-group-select))
> | @end lisp
> `----
>
> If I understand this code correctly, it could be replaced by an
> example in (info "(gnus)Group Parameters"):
>
>   ("nntp.*debian.user.news"
>    (gnus-show-threads nil)
>    (gnus-article-sort-functions '((not gnus-article-sort-by-date)))
>    (gnus-use-adaptive-scoring nil)
>    (gnus-use-scoring nil))
>   ("nnrss.*debian"
>    (gnus-show-threads nil)
>    (gnus-article-sort-functions 'gnus-article-sort-by-subject)
>    (gnus-use-adaptive-scoring nil)
>    (gnus-use-scoring t)
>    (gnus-score-find-score-files-function 'gnus-score-find-single)
>    (gnus-summary-line-format "%U%R%z%d %I%(%[ %s %]%)\n")
>
> Bye, Reiner.
> -- 
>        ,,,
>       (o o)
> ---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/