From: teranisi <teranisi>
Date: Sun, 12 Dec 2004 06:23:19 +0000 (+0000)
Subject: 

X-Git-Tag: wl-2_12-root~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=01c626c7cebae2512cdb6b8882cf650fe791262c;p=elisp%2Fwanderlust.git



---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 23bb02c..db35023 100644
--- 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
--- 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
--- 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))