Lines Matching defs:browse
72 (defcustom gnus-server-browse-in-group-buffer nil
635 (let (gnus-server-browse-in-group-buffer)
643 (gnus-browse-foreign-server server buf)
660 (defvar gnus-browse-menu-hook nil
661 "*Hook run after the creation of the browse mode menu.")
663 (defvar gnus-browse-mode-hook nil)
664 (defvar gnus-browse-mode-map nil)
665 (put 'gnus-browse-mode 'mode-class 'special)
667 (unless gnus-browse-mode-map
668 (setq gnus-browse-mode-map (make-keymap))
669 (suppress-keymap gnus-browse-mode-map)
672 gnus-browse-mode-map
673 " " gnus-browse-read-group
674 "=" gnus-browse-select-group
675 "n" gnus-browse-next-group
676 "p" gnus-browse-prev-group
677 "\177" gnus-browse-prev-group
678 [delete] gnus-browse-prev-group
679 "N" gnus-browse-next-group
680 "P" gnus-browse-prev-group
681 "\M-n" gnus-browse-next-group
682 "\M-p" gnus-browse-prev-group
683 "\r" gnus-browse-select-group
684 "u" gnus-browse-unsubscribe-current-group
685 "l" gnus-browse-exit
686 "L" gnus-browse-exit
687 "q" gnus-browse-exit
688 "Q" gnus-browse-exit
689 "d" gnus-browse-describe-group
690 "\C-c\C-c" gnus-browse-exit
691 "?" gnus-browse-describe-briefly
696 (defun gnus-browse-make-menu-bar ()
697 (gnus-turn-off-edit-menu 'browse)
698 (unless (boundp 'gnus-browse-menu)
700 gnus-browse-menu gnus-browse-mode-map ""
702 ["Subscribe" gnus-browse-unsubscribe-current-group t]
703 ["Read" gnus-browse-read-group t]
704 ["Select" gnus-browse-select-group t]
705 ["Describe" gnus-browse-describe-group t]
706 ["Next" gnus-browse-next-group t]
707 ["Prev" gnus-browse-prev-group t]
708 ["Exit" gnus-browse-exit t]))
709 (gnus-run-hooks 'gnus-browse-menu-hook)))
711 (defvar gnus-browse-current-method nil)
712 (defvar gnus-browse-return-buffer nil)
714 (defvar gnus-browse-buffer "*Gnus Browse Server*")
716 (defun gnus-browse-foreign-server (server &optional return-buffer)
718 (setq gnus-browse-current-method (gnus-server-to-method server))
719 (setq gnus-browse-return-buffer return-buffer)
720 (let* ((method gnus-browse-current-method)
783 (if gnus-server-browse-in-group-buffer
796 (gnus-get-buffer-create gnus-browse-buffer)
798 (gnus-carpal-setup-buffer 'browse))
799 (gnus-configure-windows 'browse)
803 (gnus-browse-mode)
836 (defun gnus-browse-mode ()
841 \\<gnus-browse-mode-map>
844 1) `\\[gnus-browse-unsubscribe-current-group]' to subscribe to a group.
848 2) `\\[gnus-browse-read-group]' to read a group ephemerally.
850 3) `\\[gnus-browse-exit]' to return to the group buffer."
853 (when (gnus-visual-p 'browse-menu 'menu)
854 (gnus-browse-make-menu-bar))
856 (setq major-mode 'gnus-browse-mode)
859 (use-local-map gnus-browse-mode-map)
864 (gnus-run-mode-hooks 'gnus-browse-mode-hook))
866 (defun gnus-browse-read-group (&optional no-article number)
870 (let ((group (gnus-browse-group-name)))
874 group gnus-browse-current-method nil
875 (cons (current-buffer) 'browse)
881 (defun gnus-browse-select-group (&optional number)
885 (gnus-browse-read-group 'no number))
887 (defun gnus-browse-next-group (n)
894 (defun gnus-browse-prev-group (n)
897 (gnus-browse-next-group (- n)))
899 (defun gnus-browse-unsubscribe-current-group (arg)
908 (gnus-browse-unsubscribe-group)
909 (zerop (gnus-browse-next-group ward)))
916 (defun gnus-browse-group-name ()
921 (concat (gnus-method-to-server-name gnus-browse-current-method) ":"
925 (defun gnus-browse-describe-group (group)
927 (interactive (list (gnus-browse-group-name)))
930 (defun gnus-browse-unsubscribe-group ()
931 "Toggle subscription of the current group in the browse buffer."
940 (setq group (gnus-browse-group-name))
941 (when (gnus-server-equal gnus-browse-current-method "native")
955 gnus-browse-current-method "native")
958 gnus-browse-current-method))))
972 (defun gnus-browse-exit ()
975 (when (eq major-mode 'gnus-browse-mode)
981 (if gnus-browse-return-buffer
985 (defun gnus-browse-describe-briefly ()
989 (substitute-command-keys "\\<gnus-browse-mode-map>\\[gnus-group-next-group]:Forward \\[gnus-group-prev-group]:Backward \\[gnus-browse-exit]:Exit \\[gnus-info-find-node]:Run Info \\[gnus-browse-describe-briefly]:This help")))