Mercurial > emacs
comparison lisp/gnus/gnus-group.el @ 62890:4b7fa3ee8e9e
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.
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 30 May 2005 08:20:19 +0000 |
parents | ad05d91d3598 |
children | 88db2adda4b7 |
comparison
equal
deleted
inserted
replaced
62889:9282bd25c87b | 62890:4b7fa3ee8e9e |
---|---|
1 ;;; gnus-group.el --- group mode commands for Gnus | 1 ;;; gnus-group.el --- group mode commands for Gnus |
2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 | 2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 |
3 ;; Free Software Foundation, Inc. | 3 ;; Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
6 ;; Keywords: news | 6 ;; Keywords: news |
7 | 7 |
1040 (gnus-update-group-mark-positions) | 1040 (gnus-update-group-mark-positions) |
1041 (when gnus-use-undo | 1041 (when gnus-use-undo |
1042 (gnus-undo-mode 1)) | 1042 (gnus-undo-mode 1)) |
1043 (when gnus-slave | 1043 (when gnus-slave |
1044 (gnus-slave-mode)) | 1044 (gnus-slave-mode)) |
1045 (gnus-run-hooks 'gnus-group-mode-hook)) | 1045 (gnus-run-mode-hooks 'gnus-group-mode-hook)) |
1046 | 1046 |
1047 (defun gnus-update-group-mark-positions () | 1047 (defun gnus-update-group-mark-positions () |
1048 (save-excursion | 1048 (save-excursion |
1049 (let ((gnus-process-mark ?\200) | 1049 (let ((gnus-process-mark ?\200) |
1050 (gnus-group-update-hook nil) | 1050 (gnus-group-update-hook nil) |