Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-gl.el @ 122:d2f30a177268 r20-1b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b14
author cvs
date Mon, 13 Aug 2007 09:26:03 +0200
parents 360340f9fd5f
children 8eaf7971accc
comparison
equal deleted inserted replaced
121:419db647c998 122:d2f30a177268
809 (setq gnus-grouplens-mode 809 (setq gnus-grouplens-mode
810 (if (null arg) (not gnus-grouplens-mode) 810 (if (null arg) (not gnus-grouplens-mode)
811 (> (prefix-numeric-value arg) 0))) 811 (> (prefix-numeric-value arg) 0)))
812 (when gnus-grouplens-mode 812 (when gnus-grouplens-mode
813 (make-local-hook 'gnus-select-article-hook) 813 (make-local-hook 'gnus-select-article-hook)
814 (gnus-add-hook 'gnus-select-article-hook 'grouplens-do-time nil 'local) 814 (add-hook 'gnus-select-article-hook 'grouplens-do-time nil 'local)
815 (make-local-hook 'gnus-exit-group-hook) 815 (make-local-hook 'gnus-exit-group-hook)
816 (gnus-add-hook 'gnus-exit-group-hook 'bbb-exit-group nil 'local) 816 (add-hook 'gnus-exit-group-hook 'bbb-exit-group nil 'local)
817 (make-local-variable 'gnus-score-find-score-files-function) 817 (make-local-variable 'gnus-score-find-score-files-function)
818 818
819 (cond 819 (cond
820 ((eq gnus-grouplens-override-scoring 'combine) 820 ((eq gnus-grouplens-override-scoring 'combine)
821 ;; either add bbb-buld-mid-scores-alist to a list 821 ;; either add bbb-buld-mid-scores-alist to a list