From c28baa2ad84dd83e01a6a7d26cbfe8d4379242ae Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Thu, 25 Jan 1996 10:21:05 +0000 Subject: [PATCH] Use make-local-hook for post-command-hook --- lisp/mail/rmailsum.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index c0f286a7ce2..919c0ded584 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -648,7 +648,7 @@ Commands for sorting the summary: (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 @@ Commands for sorting the summary: ;; 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, -- 2.39.2