Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-gl.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents 0293115a14e9
children ec9a17fef872
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
808 (make-local-variable 'gnus-grouplens-mode) 808 (make-local-variable 'gnus-grouplens-mode)
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 (gnus-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 (gnus-add-hook 'gnus-select-article-hook 'grouplens-do-time nil 'local)
815 (gnus-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 (gnus-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)