lisp/gnus/gnus-agent.el

92   (add-hook 'gnus-agent-group-mode-hook 'gnus-xmas-agent-group-menu-add))
101   (add-hook 'gnus-agent-summary-mode-hook 'gnus-xmas-agent-summary-menu-add))
110   (add-hook 'gnus-agent-server-mode-hook 'gnus-xmas-agent-server-menu-add))
488     ;; Set up the menu.
489     (when (gnus-visual-p 'agent-menu 'menu)
490       (funcall (intern (format "gnus-agent-%s-make-menu-bar" buffer))))
520 (defun gnus-agent-group-make-menu-bar ()
521   (unless (boundp 'gnus-agent-group-menu)
522     (easy-menu-define
523      gnus-agent-group-menu gnus-agent-group-mode-map ""
548 (defun gnus-agent-summary-make-menu-bar ()
549   (unless (boundp 'gnus-agent-summary-menu)
550     (easy-menu-define
551      gnus-agent-summary-menu gnus-agent-summary-mode-map ""
566 (defun gnus-agent-server-make-menu-bar ()
567   (unless (boundp 'gnus-agent-server-menu)
568     (easy-menu-define
569      gnus-agent-server-menu gnus-agent-server-mode-map ""
2556     "p" gnus-category-edit-predicate
2557     "g" gnus-category-edit-groups
2558     "s" gnus-category-edit-score
2564 (defvar gnus-category-menu-hook nil
2565   "*Hook run after the creation of the menu.")
2567 (defun gnus-category-make-menu-bar ()
2568   (gnus-turn-off-edit-menu 'category)
2569   (unless (boundp 'gnus-category-menu)
2570     (easy-menu-define
2571      gnus-category-menu gnus-category-mode-map ""
2577        ["Edit predicate" gnus-category-edit-predicate t]
2578        ["Edit score" gnus-category-edit-score t]
2579        ["Edit groups" gnus-category-edit-groups t]
2582     (gnus-run-hooks 'gnus-category-menu-hook)))
2596   (when (gnus-visual-p 'category-menu 'menu)
2597     (gnus-category-make-menu-bar))
2702 (defun gnus-category-edit-predicate (category)
2706     (gnus-edit-form
2720 (defun gnus-category-edit-score (category)
2724     (gnus-edit-form
2738 (defun gnus-category-edit-groups (category)
2742     (gnus-edit-form