* wl/wl-summary.el (wl-summary-mode): Check with fboundp before calling `make-local...

* wl/wl-mime.el (wl-draft-preview-message): Ditto.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8b79ed3..f8bf925 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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.