Mercurial > emacs

comparison lisp/gnus/gnus-group.el @ 33311:fa5c3f22519c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-group-toolbar-map): New variable. (gnus-group-make-tool-bar): Rewritten. (gnus-group-mode): Put kill-all-local-variables first.
author Dave Love <fx@gnu.org>
date Wed, 08 Nov 2000 17:32:46 +0000
parents 899478c14a26
children cc349ec3a7a7
comparison
equal deleted inserted replaced
33310:7476be16909f 33311:fa5c3f22519c
816 :help "Quit reading news"] 816 :help "Quit reading news"]
817 ["Exit without saving" gnus-group-quit t])) 817 ["Exit without saving" gnus-group-quit t]))
818 818
819 (gnus-run-hooks 'gnus-group-menu-hook))) 819 (gnus-run-hooks 'gnus-group-menu-hook)))
820 820
821 (defvar gnus-group-toolbar-map nil)
822
821 (defun gnus-group-make-tool-bar () 823 (defun gnus-group-make-tool-bar ()
822 (when (and (fboundp 'tool-bar-add-item-from-menu) 824 (if (and (fboundp 'tool-bar-add-item-from-menu)
823 (default-value 'tool-bar-mode) 825 (default-value 'tool-bar-mode)
824 (not (lookup-key gnus-group-mode-map [tool-bar]))) 826 (not gnus-group-toolbar-map))
825 (let ((tool-bar-map (make-sparse-keymap))) 827 (setq gnus-group-toolbar-map
826 (tool-bar-add-item-from-menu 828 (let ((tool-bar-map (make-sparse-keymap)))
827 'gnus-group-get-new-news "get-news" gnus-group-mode-map) 829 (tool-bar-add-item-from-menu
828 (tool-bar-add-item-from-menu 830 'gnus-group-get-new-news "get-news" gnus-group-mode-map)
829 'gnus-group-get-new-news-this-group "gnntg" gnus-group-mode-map) 831 (tool-bar-add-item-from-menu
830 (tool-bar-add-item-from-menu 832 'gnus-group-get-new-news-this-group "gnntg" gnus-group-mode-map)
831 'gnus-group-catchup-current "catchup" gnus-group-mode-map) 833 (tool-bar-add-item-from-menu
832 (tool-bar-add-item-from-menu 834 'gnus-group-catchup-current "catchup" gnus-group-mode-map)
833 'gnus-group-describe-group "describe-group" gnus-group-mode-map) 835 (tool-bar-add-item-from-menu
834 (tool-bar-add-item "subscribe" 'gnus-group-subscribe 'subscribe 836 'gnus-group-describe-group "describe-group" gnus-group-mode-map)
835 :help "Subscribe to the current group") 837 (tool-bar-add-item "subscribe" 'gnus-group-subscribe 'subscribe
836 (tool-bar-add-item "unsubscribe" 'gnus-group-unsubscribe 'unsubscribe 838 :help "Subscribe to the current group")
837 :help "Unsubscribe from the current group") 839 (tool-bar-add-item "unsubscribe" 'gnus-group-unsubscribe
838 (tool-bar-add-item-from-menu 840 'unsubscribe
839 'gnus-group-exit "exit-gnus" gnus-group-mode-map) 841 :help "Unsubscribe from the current group")
840 (define-key gnus-group-mode-map [tool-bar] tool-bar-map)))) 842 (tool-bar-add-item-from-menu
843 'gnus-group-exit "exit-gnus" gnus-group-mode-map)
844 tool-bar-map))
845 (if gnus-group-toolbar-map
846 (set (make-local-variable 'tool-bar-map) gnus-group-toolbar-map))))
841 847
842 (defun gnus-group-mode () 848 (defun gnus-group-mode ()
843 "Major mode for reading news. 849 "Major mode for reading news.
844 850
845 All normal editing commands are switched off. 851 All normal editing commands are switched off.
855 861
856 The following commands are available: 862 The following commands are available:
857 863
858 \\{gnus-group-mode-map}" 864 \\{gnus-group-mode-map}"
859 (interactive) 865 (interactive)
866 (kill-all-local-variables)
860 (when (gnus-visual-p 'group-menu 'menu) 867 (when (gnus-visual-p 'group-menu 'menu)
861 (gnus-group-make-menu-bar) 868 (gnus-group-make-menu-bar)
862 (gnus-group-make-tool-bar)) 869 (gnus-group-make-tool-bar))
863 (kill-all-local-variables)
864 (gnus-simplify-mode-line) 870 (gnus-simplify-mode-line)
865 (setq major-mode 'gnus-group-mode) 871 (setq major-mode 'gnus-group-mode)
866 (setq mode-name "Group") 872 (setq mode-name "Group")
867 (gnus-group-set-mode-line) 873 (gnus-group-set-mode-line)
868 (setq mode-line-process nil) 874 (setq mode-line-process nil)