# HG changeset patch
# User Simon Marshall <simon@gnu.org>
# Date 822565265 0
# Node ID 55ffd73831cb026e40251a83b3c4f2331b5bd32e
# Parent  fbce2d55fec6a4759199ce887f3f51b195ce74c4
Use make-local-hook for post-command-hook

diff -r fbce2d55fec6 -r 55ffd73831cb lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Thu Jan 25 07:09:48 1996 +0000
+++ b/lisp/mail/rmailsum.el	Thu Jan 25 10:21:05 1996 +0000
@@ -648,7 +648,7 @@
   (make-local-variable 'rmail-summary-redo)
   (setq rmail-summary-redo nil)
   (make-local-variable 'revert-buffer-function)
-  (make-local-variable 'post-command-hook)
+  (make-local-hook 'post-command-hook)
   (make-local-variable 'font-lock-defaults)
   (setq font-lock-defaults '(rmail-summary-font-lock-keywords t))
   (rmail-summary-enable)
@@ -657,12 +657,12 @@
 ;; Summary features need to be disabled during edit mode.
 (defun rmail-summary-disable ()
   (use-local-map text-mode-map)
-  (remove-hook 'post-command-hook 'rmail-summary-rmail-update)
+  (remove-hook 'post-command-hook 'rmail-summary-rmail-update t)
   (setq revert-buffer-function nil))
 
 (defun rmail-summary-enable ()
   (use-local-map rmail-summary-mode-map)
-  (add-hook 'post-command-hook 'rmail-summary-rmail-update)
+  (add-hook 'post-command-hook 'rmail-summary-rmail-update nil t)
   (setq revert-buffer-function 'rmail-update-summary))
 
 ;; Show in Rmail the message described by the summary line that point is on,