Mercurial > emacs
comparison man/gnus-faq.texi @ 28344:54fda0e8528a
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 |