diff options
| author | Karl Heuer | 1996-01-09 23:19:28 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-09 23:19:28 +0000 |
| commit | c895a248006828972a6ae1935c808b751c8439f7 (patch) | |
| tree | 276b96c22e0fe5a47fb048acb8ba963062067f50 | |
| parent | 5f55e1592edeace67ab5f29d99091d3783f8a3e6 (diff) | |
| download | emacs-c895a248006828972a6ae1935c808b751c8439f7.tar.gz emacs-c895a248006828972a6ae1935c808b751c8439f7.zip | |
(mh-display-msg): Use kill-local-variable
to clear out write-contents-hooks.
| -rw-r--r-- | lisp/mail/mh-utils.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/mh-utils.el b/lisp/mail/mh-utils.el index a77205a26d0..b460a127b21 100644 --- a/lisp/mail/mh-utils.el +++ b/lisp/mail/mh-utils.el | |||
| @@ -25,7 +25,7 @@ | |||
| 25 | 25 | ||
| 26 | ;;; Change Log: | 26 | ;;; Change Log: |
| 27 | 27 | ||
| 28 | ;; $Id: mh-utils.el,v 1.5 1995/04/25 22:27:45 kwzh Exp kwzh $ | 28 | ;; $Id: mh-utils.el,v 1.6 1995/11/03 02:29:09 kwzh Exp kwzh $ |
| 29 | 29 | ||
| 30 | ;;; Code: | 30 | ;;; Code: |
| 31 | 31 | ||
| @@ -300,7 +300,7 @@ Type \"\\[mh-header-display]\" to see the message with all its headers." | |||
| 300 | ;; Changing contents, so this hook needs to be reinitialized. | 300 | ;; Changing contents, so this hook needs to be reinitialized. |
| 301 | ;; pgp.el uses this. | 301 | ;; pgp.el uses this. |
| 302 | (if (boundp 'write-contents-hooks) ;Emacs 19 | 302 | (if (boundp 'write-contents-hooks) ;Emacs 19 |
| 303 | (setq write-contents-hooks nil)) | 303 | (kill-local-variable 'write-contents-hooks)) |
| 304 | (if formfile | 304 | (if formfile |
| 305 | (mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear" | 305 | (mh-exec-lib-cmd-output "mhl" "-nobell" "-noclear" |
| 306 | (if (stringp formfile) | 306 | (if (stringp formfile) |