/[emacs]/emacs/lisp/gnus/gnus-srvr.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-srvr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by miles, Wed Mar 30 08:14:32 2005 UTC revision 1.18 by miles, Mon May 30 08:20:18 2005 UTC
# Line 1  Line 1 
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>
# Line 269  The following commands are available: Line 270  The following commands are available:
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))
# Line 849  buffer. Line 850  buffer.
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.

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26