From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: Tue, 27 Nov 2001 10:40:44 +0000 (+0000)
Subject: 2001-11-27  Per Abrahamsen  <abraham@dina.kvl.dk>
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=527b4ae3ec0b16d6f9496f6ba24d753054a33e80

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 349e665a1..df49f6248 100644
--- 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.
diff --git a/lisp/message.el b/lisp/message.el
index b6256a9aa..d5e5dca7c 100644
--- 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...
+  (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)