diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-18 18:04:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-18 18:04:45 +0000 |
| commit | a14c0e013517acd45c0e21aaeaef653dea182af8 (patch) | |
| tree | e7a7d60e5e8becf38def0e20cfb1a0a64103899d /lisp/mail/mh-e.el | |
| parent | 7350eebbc31f1f170ab6a9f6c330fe117c6f499d (diff) | |
| download | emacs-a14c0e013517acd45c0e21aaeaef653dea182af8.tar.gz | |
(mh-folder-mode): Use local-write-file-hooks.
Diffstat (limited to 'lisp/mail/mh-e.el')
| -rw-r--r-- | lisp/mail/mh-e.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/mh-e.el b/lisp/mail/mh-e.el index 14e5c9a7bf8..67cb9a1a960 100644 --- a/lisp/mail/mh-e.el +++ b/lisp/mail/mh-e.el @@ -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 @@ provided, then prompt for the message sequence." (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 @@ The value of mh-folder-mode-hook is called when a new folder is set up." (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) |