Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-gl.el @ 173:8eaf7971accc r20-3b13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b13
author cvs
date Mon, 13 Aug 2007 09:49:09 +0200
parents d2f30a177268
children
comparison
equal deleted inserted replaced
172:a38aed19690b 173:8eaf7971accc
848 848
849 ;; Set up the menu. 849 ;; Set up the menu.
850 (when (and menu-bar-mode 850 (when (and menu-bar-mode
851 (gnus-visual-p 'grouplens-menu 'menu)) 851 (gnus-visual-p 'grouplens-menu 'menu))
852 (gnus-grouplens-make-menu-bar)) 852 (gnus-grouplens-make-menu-bar))
853 (unless (assq 'gnus-grouplens-mode minor-mode-alist) 853 (gnus-add-minor-mode
854 (push '(gnus-grouplens-mode " GroupLens") minor-mode-alist)) 854 'gnus-grouplens-mode " GroupLens" gnus-grouplens-mode-map)
855 (unless (assq 'gnus-grouplens-mode minor-mode-map-alist)
856 (push (cons 'gnus-grouplens-mode gnus-grouplens-mode-map)
857 minor-mode-map-alist))
858 (run-hooks 'gnus-grouplens-mode-hook)))) 855 (run-hooks 'gnus-grouplens-mode-hook))))
859 856
860 (provide 'gnus-gl) 857 (provide 'gnus-gl)
861 858
862 ;;; gnus-gl.el ends here 859 ;;; gnus-gl.el ends here