1 |
;;; gnus-srvr.el --- virtual server support for Gnus |
;;; gnus-srvr.el --- virtual server support for Gnus |
2 |
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 |
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, |
3 |
|
;; 2004, 2005 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
270 |
(put 'gnus-server-mode 'font-lock-defaults '(gnus-server-font-lock-keywords t)) |
(put 'gnus-server-mode 'font-lock-defaults '(gnus-server-font-lock-keywords t)) |
271 |
(set (make-local-variable 'font-lock-defaults) |
(set (make-local-variable 'font-lock-defaults) |
272 |
'(gnus-server-font-lock-keywords t))) |
'(gnus-server-font-lock-keywords t))) |
273 |
(gnus-run-hooks 'gnus-server-mode-hook)) |
(gnus-run-mode-hooks 'gnus-server-mode-hook)) |
274 |
|
|
275 |
(defun gnus-server-insert-server-line (gnus-tmp-name method) |
(defun gnus-server-insert-server-line (gnus-tmp-name method) |
276 |
(let* ((gnus-tmp-how (car method)) |
(let* ((gnus-tmp-how (car method)) |
850 |
(setq truncate-lines t) |
(setq truncate-lines t) |
851 |
(gnus-set-default-directory) |
(gnus-set-default-directory) |
852 |
(setq buffer-read-only t) |
(setq buffer-read-only t) |
853 |
(gnus-run-hooks 'gnus-browse-mode-hook)) |
(gnus-run-mode-hooks 'gnus-browse-mode-hook)) |
854 |
|
|
855 |
(defun gnus-browse-read-group (&optional no-article number) |
(defun gnus-browse-read-group (&optional no-article number) |
856 |
"Enter the group at the current line. |
"Enter the group at the current line. |