diff options
| author | Miles Bader <miles@gnu.org> | 2005-05-30 08:20:19 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2005-05-30 08:20:19 +0000 |
| commit | cfcd5c914a4b35939c62255e67e5a033aa7aa7e5 (patch) | |
| tree | 76e26f2dd822b175e3bb86db650afc630a4a680a /lisp/gnus/gnus-srvr.el | |
| parent | b8caac06e0174eedfcb8e89a26f88e27eb7433ad (diff) | |
| download | emacs-cfcd5c914a4b35939c62255e67e5a033aa7aa7e5.tar.gz | |
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-336
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 74-75)
- Merge from emacs--cvs-trunk--0
- Update from CVS
2005-05-30 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-agent.el (gnus-category-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-art.el (gnus-article-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-cus.el (gnus-custom-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-eform.el (gnus-edit-form-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-group.el (gnus-group-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-kill.el (gnus-kill-file-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-salt.el (gnus-tree-mode): Use gnus-run-mode-hooks.
(gnus-carpal-mode): Ditto.
* lisp/gnus/gnus-srvr.el (gnus-server-mode): Use gnus-run-mode-hooks.
(gnus-browse-mode): Ditto.
* lisp/gnus/gnus-sum.el (gnus-summary-mode): Use gnus-run-mode-hooks.
* lisp/gnus/gnus-util.el (gnus-run-mode-hooks): Save current buffer.
Diffstat (limited to 'lisp/gnus/gnus-srvr.el')
| -rw-r--r-- | lisp/gnus/gnus-srvr.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el index 7b3c033fddb..1c2ba9447ff 100644 --- a/lisp/gnus/gnus-srvr.el +++ b/lisp/gnus/gnus-srvr.el @@ -1,5 +1,6 @@ ;;; gnus-srvr.el --- virtual server support for Gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, +;; 2004, 2005 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -269,7 +270,7 @@ The following commands are available: (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)) + (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,7 +850,7 @@ buffer. (setq truncate-lines t) (gnus-set-default-directory) (setq buffer-read-only t) - (gnus-run-hooks 'gnus-browse-mode-hook)) + (gnus-run-mode-hooks 'gnus-browse-mode-hook)) (defun gnus-browse-read-group (&optional no-article number) "Enter the group at the current line. |