\ 5\ 1

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 23bb02c..db35023 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,12 @@
+2004-12-12  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-summary.el (wl-summary-mode): Set kill-buffer-hook as
+       buffer-local.
+
+       * wl-mime.el (wl-draft-preview-message): Use make-local-hook for
+       kill-buffer-hook instead of make-local-variable.
+       (wl-draft-preview-message): Set `local' argument of add-hook as t.
+
 2004-12-12  Scott Renfro <scott@renfro.org>
 
        * wl-summary.el (wl-summary-default-subject-filter): Fixed greedy

diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index 4f3ea6a..ed2e0a9 100644 (file)
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -283,7 +283,7 @@ It calls following-method selected from variable
       (when wl-highlight-body-too
        (wl-highlight-body))
       (run-hooks 'wl-draft-preview-message-hook))
-    (make-local-variable 'kill-buffer-hook)
+    (make-local-hook 'kill-buffer-hook)
     (add-hook 'kill-buffer-hook
              (lambda ()
                (when (get-buffer-window
@@ -293,7 +293,8 @@ It calls following-method selected from variable
                  (delete-window))
                (when (get-buffer wl-draft-preview-attributes-buffer-name)
                  (kill-buffer (get-buffer
-                               wl-draft-preview-attributes-buffer-name)))))
+                               wl-draft-preview-attributes-buffer-name))))
+             nil t)
     (if (not wl-draft-preview-attributes)
        (message (concat "Recipients: "
                         (cdr (assq 'recipients attribute-list))))

diff --git a/wl/wl-summary.el b/wl/wl-summary.el
index a57ec6d..4aef469 100644 (file)
--- a/wl/wl-summary.el
+++ b/wl/wl-summary.el
@@ -921,7 +921,8 @@ Entering Folder mode calls the value of `wl-summary-mode-hook'."
              #'wl-summary-after-resize-function))
   (make-local-hook 'change-major-mode-hook)
   (add-hook 'change-major-mode-hook #'wl-summary-buffer-detach nil t)
-  (add-hook 'kill-buffer-hook #'wl-summary-buffer-detach)
+  (make-local-hook 'kill-buffer-hook)
+  (add-hook 'kill-buffer-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.
   (run-hooks 'wl-summary-mode-hook))