Commit 11079525 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mh-folder-mode): Use local-write-file-hooks.

parent 9081378e
...@@ -52,7 +52,7 @@ ...@@ -52,7 +52,7 @@
;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985. ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu ;;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu
;;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu ;;; Modified by Stephen Gildea 1988. gildea@lcs.mit.edu
(defconst mh-e-RCS-id "$Header: mh-e.el,v 3.15 94/04/13 11:36:48 gildea Exp $") (defconst mh-e-RCS-id "$Header: /home/fsf/rms/e19/lisp/RCS/mh-e.el,v 1.2 1994/04/13 20:42:10 rms Exp rms $")
;;; Code: ;;; Code:
...@@ -280,7 +280,7 @@ provided, then prompt for the message sequence." ...@@ -280,7 +280,7 @@ provided, then prompt for the message sequence."
(mh-set-scan-mode) (mh-set-scan-mode)
(mh-goto-cur-msg) ; after mh-set-scan-mode for efficiency (mh-goto-cur-msg) ; after mh-set-scan-mode for efficiency
(mh-make-folder-mode-line) (mh-make-folder-mode-line)
t) ; return t for write-file-hooks t) ; return t for local-write-file-hooks
(defun mh-first-msg () (defun mh-first-msg ()
...@@ -772,8 +772,8 @@ The value of mh-folder-mode-hook is called when a new folder is set up." ...@@ -772,8 +772,8 @@ The value of mh-folder-mode-hook is called when a new folder is set up."
(setq truncate-lines t) (setq truncate-lines t)
(auto-save-mode -1) (auto-save-mode -1)
(setq buffer-offer-save t) (setq buffer-offer-save t)
(make-local-variable 'write-file-hooks) (make-local-variable 'local-write-file-hooks)
(setq write-file-hooks '(mh-execute-commands)) (setq local-write-file-hooks '(mh-execute-commands))
(make-local-variable 'revert-buffer-function) (make-local-variable 'revert-buffer-function)
(setq revert-buffer-function 'mh-undo-folder) (setq revert-buffer-function 'mh-undo-folder)
(or (assq 'mh-showing minor-mode-alist) (or (assq 'mh-showing minor-mode-alist)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment