# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 774554685 0
# Node ID f856f00b1e32ec19227cb98c18ac1513bcc0112e
# Parent  824fb42f33abccaf07cdc895fdad78f16b2adab8
(mh-folder-mode): Use local-write-file-hooks.

diff -r 824fb42f33ab -r f856f00b1e32 lisp/mail/mh-e.el
--- a/lisp/mail/mh-e.el	Mon Jul 18 17:49:23 1994 +0000
+++ b/lisp/mail/mh-e.el	Mon Jul 18 18:04:45 1994 +0000
@@ -52,7 +52,7 @@
 ;;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
 ;;; Rewritten for GNU Emacs, James Larus 1985.  larus@ginger.berkeley.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:
 
@@ -280,7 +280,7 @@
   (mh-set-scan-mode)
   (mh-goto-cur-msg)			; after mh-set-scan-mode for efficiency
   (mh-make-folder-mode-line)
-  t)					; return t for write-file-hooks
+  t)					; return t for local-write-file-hooks
 
 
 (defun mh-first-msg ()
@@ -772,8 +772,8 @@
   (setq truncate-lines t)
   (auto-save-mode -1)
   (setq buffer-offer-save t)
-  (make-local-variable 'write-file-hooks)
-  (setq write-file-hooks '(mh-execute-commands))
+  (make-local-variable 'local-write-file-hooks)
+  (setq local-write-file-hooks '(mh-execute-commands))
   (make-local-variable 'revert-buffer-function)
   (setq revert-buffer-function 'mh-undo-folder)
   (or (assq 'mh-showing minor-mode-alist)