Mercurial > emacs

comparison man/gnus-faq.texi @ 28344:54fda0e8528a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Weed out redundant uses of `function'
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 27 Mar 2000 04:29:55 +0000
parents ac7e9e5e2ccb
children 9c198c1dc72f
comparison
equal deleted inserted replaced
28343:4ecf90324237 28344:54fda0e8528a
527 527
528 @lisp 528 @lisp
529 ;;; Don't auto-select first article if reading sources, or archives or 529 ;;; Don't auto-select first article if reading sources, or archives or
530 ;;; jobs postings, etc. and just display the summary buffer 530 ;;; jobs postings, etc. and just display the summary buffer
531 (add-hook 'gnus-select-group-hook 531 (add-hook 'gnus-select-group-hook
532 (function 532 (lambda ()
533 (lambda () 533 (cond ((string-match "sources" gnus-newsgroup-name)
534 (cond ((string-match "sources" gnus-newsgroup-name) 534 (setq gnus-auto-select-first nil))
535 (setq gnus-auto-select-first nil)) 535 ((string-match "jobs" gnus-newsgroup-name)
536 ((string-match "jobs" gnus-newsgroup-name) 536 (setq gnus-auto-select-first nil))
537 (setq gnus-auto-select-first nil)) 537 ((string-match "comp\\.archives" gnus-newsgroup-name)
538 ((string-match "comp\\.archives" gnus-newsgroup-name) 538 (setq gnus-auto-select-first nil))
539 (setq gnus-auto-select-first nil)) 539 ((string-match "reviews" gnus-newsgroup-name)
540 ((string-match "reviews" gnus-newsgroup-name) 540 (setq gnus-auto-select-first nil))
541 (setq gnus-auto-select-first nil)) 541 ((string-match "announce" gnus-newsgroup-name)
542 ((string-match "announce" gnus-newsgroup-name) 542 (setq gnus-auto-select-first nil))
543 (setq gnus-auto-select-first nil)) 543 ((string-match "binaries" gnus-newsgroup-name)
544 ((string-match "binaries" gnus-newsgroup-name) 544 (setq gnus-auto-select-first nil))
545 (setq gnus-auto-select-first nil)) 545 (t
546 (t 546 (setq gnus-auto-select-first t)))))
547 (setq gnus-auto-select-first t))))))
548 @end lisp 547 @end lisp
549 548
550 @item 549 @item
551 Per Abrahamsen <abraham@@dina.kvl.dk> writes:@* 550 Per Abrahamsen <abraham@@dina.kvl.dk> writes:@*
552 Another possibility is to create an @file{all.binaries.all.SCORE} file 551 Another possibility is to create an @file{all.binaries.all.SCORE} file