Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-group.el @ 136:b980b6286996 r20-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents d2f30a177268
children 59463afc5666
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
600 (gnus-group-group-name)] 600 (gnus-group-group-name)]
601 ["Select method" gnus-group-edit-group-method 601 ["Select method" gnus-group-edit-group-method
602 (gnus-group-group-name)] 602 (gnus-group-group-name)]
603 ["Info" gnus-group-edit-group (gnus-group-group-name)] 603 ["Info" gnus-group-edit-group (gnus-group-group-name)]
604 ["Local kill file" gnus-group-edit-local-kill (gnus-group-group-name)] 604 ["Local kill file" gnus-group-edit-local-kill (gnus-group-group-name)]
605 ["Global kill file" gnus-group-edit-global-kill t]) 605 ["Global kill file" gnus-group-edit-global-kill t])))
606 ))
607 606
608 (easy-menu-define 607 (easy-menu-define
609 gnus-group-group-menu gnus-group-mode-map "" 608 gnus-group-group-menu gnus-group-mode-map ""
610 '("Groups" 609 '("Groups"
611 ("Listing" 610 ("Listing"
691 ["Best unread group" gnus-group-best-unread-group t]) 690 ["Best unread group" gnus-group-best-unread-group t])
692 ["Delete bogus groups" gnus-group-check-bogus-groups t] 691 ["Delete bogus groups" gnus-group-check-bogus-groups t]
693 ["Find new newsgroups" gnus-find-new-newsgroups t] 692 ["Find new newsgroups" gnus-find-new-newsgroups t]
694 ["Transpose" gnus-group-transpose-groups 693 ["Transpose" gnus-group-transpose-groups
695 (gnus-group-group-name)] 694 (gnus-group-group-name)]
696 ["Read a directory as a group..." gnus-group-enter-directory t] 695 ["Read a directory as a group..." gnus-group-enter-directory t]))
697 ))
698 696
699 (easy-menu-define 697 (easy-menu-define
700 gnus-group-misc-menu gnus-group-mode-map "" 698 gnus-group-misc-menu gnus-group-mode-map ""
701 '("Misc" 699 '("Misc"
702 ("SOUP" 700 ("SOUP"
723 ["Clear dribble buffer" gnus-group-clear-dribble t] 721 ["Clear dribble buffer" gnus-group-clear-dribble t]
724 ["Read manual" gnus-info-find-node t] 722 ["Read manual" gnus-info-find-node t]
725 ["Flush score cache" gnus-score-flush-cache t] 723 ["Flush score cache" gnus-score-flush-cache t]
726 ["Toggle topics" gnus-topic-mode t] 724 ["Toggle topics" gnus-topic-mode t]
727 ["Exit from Gnus" gnus-group-exit t] 725 ["Exit from Gnus" gnus-group-exit t]
728 ["Exit without saving" gnus-group-quit t] 726 ["Exit without saving" gnus-group-quit t]))
729 ))
730 727
731 (run-hooks 'gnus-group-menu-hook))) 728 (run-hooks 'gnus-group-menu-hook)))
732 729
733 (defun gnus-group-mode () 730 (defun gnus-group-mode ()
734 "Major mode for reading news. 731 "Major mode for reading news.