diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-03-27 04:29:55 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-03-27 04:29:55 +0000 |
| commit | bed44076dc1fbb75297b073279e82a13e294f1a0 (patch) | |
| tree | e7515158d152534500774a2bb7c652c5f4739e7c /man/gnus-faq.texi | |
| parent | 8c085080baf318ec0fc376414c5d9202c314a398 (diff) | |
| download | emacs-bed44076dc1fbb75297b073279e82a13e294f1a0.tar.gz | |
Weed out redundant uses of `function'
Diffstat (limited to 'man/gnus-faq.texi')
| -rw-r--r-- | man/gnus-faq.texi | 31 |
1 files changed, 15 insertions, 16 deletions
diff --git a/man/gnus-faq.texi b/man/gnus-faq.texi index a899e7def45..466c1636fa4 100644 --- a/man/gnus-faq.texi +++ b/man/gnus-faq.texi @@ -529,22 +529,21 @@ This is what I use...customize as necessary... ;;; Don't auto-select first article if reading sources, or archives or ;;; jobs postings, etc. and just display the summary buffer (add-hook 'gnus-select-group-hook - (function - (lambda () - (cond ((string-match "sources" gnus-newsgroup-name) - (setq gnus-auto-select-first nil)) - ((string-match "jobs" gnus-newsgroup-name) - (setq gnus-auto-select-first nil)) - ((string-match "comp\\.archives" gnus-newsgroup-name) - (setq gnus-auto-select-first nil)) - ((string-match "reviews" gnus-newsgroup-name) - (setq gnus-auto-select-first nil)) - ((string-match "announce" gnus-newsgroup-name) - (setq gnus-auto-select-first nil)) - ((string-match "binaries" gnus-newsgroup-name) - (setq gnus-auto-select-first nil)) - (t - (setq gnus-auto-select-first t)))))) + (lambda () + (cond ((string-match "sources" gnus-newsgroup-name) + (setq gnus-auto-select-first nil)) + ((string-match "jobs" gnus-newsgroup-name) + (setq gnus-auto-select-first nil)) + ((string-match "comp\\.archives" gnus-newsgroup-name) + (setq gnus-auto-select-first nil)) + ((string-match "reviews" gnus-newsgroup-name) + (setq gnus-auto-select-first nil)) + ((string-match "announce" gnus-newsgroup-name) + (setq gnus-auto-select-first nil)) + ((string-match "binaries" gnus-newsgroup-name) + (setq gnus-auto-select-first nil)) + (t + (setq gnus-auto-select-first t))))) @end lisp @item |