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)