Lines Matching +defs:buffer +defs:menu
44 "Hook run when exiting the server buffer."
72 (defcustom gnus-server-browse-in-group-buffer nil
73 "Whether server browsing should take place in the group buffer.
74 If nil, a faster, but more primitive, buffer is used instead."
101 (defvar gnus-server-menu-hook nil
102 "*Hook run after the creation of the server mode menu.")
104 (defun gnus-server-make-menu-bar ()
105 (gnus-turn-off-edit-menu 'server)
106 (unless (boundp 'gnus-server-server-menu)
107 (easy-menu-define
108 gnus-server-server-menu gnus-server-mode-map ""
121 (easy-menu-define
122 gnus-server-connections-menu gnus-server-mode-map ""
133 (gnus-run-hooks 'gnus-server-menu-hook)))
143 " " gnus-server-read-server-in-server-buffer
267 (when (gnus-visual-p 'server-menu 'menu)
268 (gnus-server-make-menu-bar))
276 (buffer-disable-undo)
278 (setq buffer-read-only t)
313 (defun gnus-enter-server-buffer ()
314 "Set up the server buffer."
315 (gnus-server-setup-buffer)
319 (defun gnus-server-setup-buffer ()
320 "Initialize the server buffer."
321 (unless (get-buffer gnus-server-buffer)
323 (set-buffer (gnus-get-buffer-create gnus-server-buffer))
326 (gnus-carpal-setup-buffer 'server)))))
332 (buffer-read-only nil)
335 (erase-buffer)
373 (defconst gnus-server-edit-buffer "*Gnus edit server*")
377 (set-buffer gnus-server-buffer)
378 (let* ((buffer-read-only nil)
426 (let ((buffer-read-only nil))
468 "Return to the group buffer."
471 (gnus-kill-buffer (current-buffer))
632 (defun gnus-server-read-server-in-server-buffer (server)
633 "Browse a server in server buffer."
635 (let (gnus-server-browse-in-group-buffer)
641 (let ((buf (current-buffer)))
645 (set-buffer buf)
660 (defvar gnus-browse-menu-hook nil
661 "*Hook run after the creation of the browse mode menu.")
696 (defun gnus-browse-make-menu-bar ()
697 (gnus-turn-off-edit-menu 'browse)
698 (unless (boundp 'gnus-browse-menu)
699 (easy-menu-define
700 gnus-browse-menu gnus-browse-mode-map ""
709 (gnus-run-hooks 'gnus-browse-menu-hook)))
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)
719 (setq gnus-browse-return-buffer return-buffer)
740 (with-current-buffer nntp-server-buffer
741 (let ((cur (current-buffer)))
752 (buffer-substring
768 (setq name (buffer-substring p (point)))
773 (setq name (concat name (buffer-substring
783 (if gnus-server-browse-in-group-buffer
796 (gnus-get-buffer-create gnus-browse-buffer)
798 (gnus-carpal-setup-buffer 'browse))
800 (buffer-disable-undo)
801 (let ((buffer-read-only nil))
802 (erase-buffer))
804 (setq mode-line-buffer-identification
808 (let ((buffer-read-only nil)
830 (switch-to-buffer (current-buffer)))
842 The only things you can do in this buffer is
845 The group will be inserted into the group buffer upon exit from this
846 buffer.
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))
860 (buffer-disable-undo)
863 (setq buffer-read-only t)
875 (cons (current-buffer) 'browse)
931 "Toggle subscription of the current group in the browse buffer."
933 (buffer-read-only nil)
973 "Quit browsing and return to the group buffer."
976 (gnus-kill-buffer (current-buffer)))
977 ;; Insert the newly subscribed groups in the group buffer.
979 (set-buffer gnus-group-buffer)
981 (if gnus-browse-return-buffer