From: okazaki <okazaki>
Date: Mon, 18 Oct 2010 07:43:32 +0000 (+0000)
Subject: * wl/wl-summary.el (wl-summary-mode): Check with fboundp before calling `make-local... 
X-Git-Tag: merged-trunk-to-elmo-imap4-compliance-2^2~15
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=52279a31118b268a2c19a63cc9d0d794e556bec6;p=elisp%2Fwanderlust.git

* wl/wl-summary.el (wl-summary-mode): Check with fboundp before calling `make-local-hook'.
* wl/wl-mime.el (wl-draft-preview-message): Ditto.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8b79ed3..f8bf925 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* wl-summary.el (wl-summary-mode): Check with fboundp before calling `make-local-hook'.
+	* wl-mime.el (wl-draft-preview-message): Ditto.
+
 2010-09-18  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* wl-demo.el: Prune functions provided temporarily to avoid
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 0c14cfd..364f426 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -358,7 +358,8 @@ It calls following-method selected from variable
       (when wl-highlight-body-too
 	(wl-highlight-body))
       (run-hooks 'wl-draft-preview-message-hook))
-    (make-local-hook 'kill-buffer-hook)
+    (if (fboundp 'make-local-hook)
+	(make-local-hook 'kill-buffer-hook))
     (add-hook 'kill-buffer-hook #'wl-draft-hide-attributes-buffer nil t)
     (if wl-draft-preview-attributes
 	(ignore-errors ; in case when the window is too small
diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index 99742e6..857ee19 100644
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -952,13 +952,15 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
 	(wl-summary-window-scroll-functions))
   (when wl-summary-buffer-window-scroll-functions
     (let ((hook (if wl-on-xemacs 'pre-idle-hook 'window-scroll-functions)))
-      (make-local-hook hook)
+      (if (fboundp 'make-local-hook)
+	  (make-local-hook hook))
       (dolist (function wl-summary-buffer-window-scroll-functions)
 	(add-hook hook function nil t)))
     (add-hook 'window-size-change-functions
 	      #'wl-summary-after-resize-function))
   (dolist (hook '(change-major-mode-hook kill-buffer-hook))
-    (make-local-hook hook)
+    (if (fboundp 'make-local-hook)
+	(make-local-hook hook))
     (add-hook hook #'wl-summary-buffer-detach nil t))
   ;; This hook may contain the function `wl-setup-summary' for reasons
   ;; of system internal to accord facilities for the Emacs variants.