[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-srvr.el

[Miles Bader]

Index: emacs/lisp/gnus/gnus-srvr.el
diff -c emacs/lisp/gnus/gnus-srvr.el:1.17 emacs/lisp/gnus/gnus-srvr.el:1.18
*** emacs/lisp/gnus/gnus-srvr.el:1.17   Wed Mar 30 08:14:32 2005
--- emacs/lisp/gnus/gnus-srvr.el        Mon May 30 08:20:18 2005
***************
*** 1,5 ****
  ;;; gnus-srvr.el --- virtual server support for Gnus
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,6 ----
  ;;; gnus-srvr.el --- virtual server support for Gnus
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
! ;; 2004, 2005
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 269,275 ****
        (put 'gnus-server-mode 'font-lock-defaults 
'(gnus-server-font-lock-keywords t))
      (set (make-local-variable 'font-lock-defaults)
         '(gnus-server-font-lock-keywords t)))
!   (gnus-run-hooks 'gnus-server-mode-hook))
  
  (defun gnus-server-insert-server-line (gnus-tmp-name method)
    (let* ((gnus-tmp-how (car method))
--- 270,276 ----
        (put 'gnus-server-mode 'font-lock-defaults 
'(gnus-server-font-lock-keywords t))
      (set (make-local-variable 'font-lock-defaults)
         '(gnus-server-font-lock-keywords t)))
!   (gnus-run-mode-hooks 'gnus-server-mode-hook))
  
  (defun gnus-server-insert-server-line (gnus-tmp-name method)
    (let* ((gnus-tmp-how (car method))
***************
*** 849,855 ****
    (setq truncate-lines t)
    (gnus-set-default-directory)
    (setq buffer-read-only t)
!   (gnus-run-hooks 'gnus-browse-mode-hook))
  
  (defun gnus-browse-read-group (&optional no-article number)
    "Enter the group at the current line.
--- 850,856 ----
    (setq truncate-lines t)
    (gnus-set-default-directory)
    (setq buffer-read-only t)
!   (gnus-run-mode-hooks 'gnus-browse-mode-hook))
  
  (defun gnus-browse-read-group (&optional no-article number)
    "Enter the group at the current line.