2001-11-27 Per Abrahamsen <abraham@dina.kvl.dk>

	* message.el (message-mode): Use `make-local-hook' unless
	obsolete.
	Patch by Katsumi Yamaoka  <yamaoka@jpl.org>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 349e665..df49f62 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-11-27  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * message.el (message-mode): Use `make-local-hook' unless
+       obsolete.
+       Patch by Katsumi Yamaoka  <yamaoka@jpl.org>.
+

 2001-11-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * canlock.el: Remove sha1.el and base64.el stuff.
 2001-11-26  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * canlock.el: Remove sha1.el and base64.el stuff.

diff --git a/lisp/message.el b/lisp/message.el
index b6256a9..d5e5dca 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1728,6 +1728,8 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
   (easy-menu-add message-mode-menu message-mode-map)
   (easy-menu-add message-mode-field-menu message-mode-map)
   ;; Mmmm... Forbidden properties...
   (easy-menu-add message-mode-menu message-mode-map)
   (easy-menu-add message-mode-field-menu message-mode-map)
   ;; Mmmm... Forbidden properties...

+  (unless (eq (get 'make-local-hook 'byte-compile) 'byte-compile-obsolete)
+    (eval '(make-local-hook 'after-change-functions)))

   (add-hook 'after-change-functions 'message-strip-forbidden-properties nil t)
   ;; Allow mail alias things.
   (when (eq message-mail-alias-type 'abbrev)
   (add-hook 'after-change-functions 'message-strip-forbidden-properties nil t)
   ;; Allow mail alias things.
   (when (eq message-mail-alias-type 'abbrev)