mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-336

Browse source 
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.
This commit is contained in:
Miles Bader 2005-05-30 08:20:19 +00:00
parent b8caac06e0
commit cfcd5c914a
11 changed files with 46 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/gnus-salt.el
View file

@ -1,6 +1,6 @@
;;; gnus-salt.el --- alternate summary mode interfaces for Gnus
;; Copyright (C) 1996, 1997, 1998, 1999, 2001
;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2002, 2004, 2005
;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
@ -496,7 +496,7 @@ Two predefined functions are available:
(gnus-set-work-buffer)
(gnus-tree-node-insert (make-mail-header "") nil)
(setq gnus-tree-node-length (1- (point))))
(gnus-run-hooks 'gnus-tree-mode-hook))
(gnus-run-mode-hooks 'gnus-tree-mode-hook))
(defun gnus-tree-read-summary-keys (&optional arg)
"Read a summary buffer key sequence and execute it."
@ -1009,7 +1009,7 @@ The following commands are available:
(buffer-disable-undo)
(setq buffer-read-only t)
(make-local-variable 'gnus-carpal-attached-buffer)
(gnus-run-hooks 'gnus-carpal-mode-hook))
(gnus-run-mode-hooks 'gnus-carpal-mode-hook))
(defun gnus-carpal-setup-buffer (type)
(let ((buffer (symbol-value (intern (format "gnus-carpal-%s-buffer" type)))))