From: yoichi <yoichi>
Date: Wed, 19 Jun 2002 15:11:11 +0000 (+0000)
Subject: * wl-message.el (wl-message-buffer-create): Run
X-Git-Tag: elmo-mark-root~76
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=08fe50f15e7aed9643f87a7cbb552690c6908318;p=elisp%2Fwanderlust.git

* wl-message.el (wl-message-buffer-create): Run
wl-message-buffer-created-hook.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 140c4c6..67eff30 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-19  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-message.el (wl-message-buffer-create): Run
+	wl-message-buffer-created-hook.
+
 2002-06-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* wl-summary.el (wl-summary-sort-specs): New variable.
diff --git a/wl/wl-message.el b/wl/wl-message.el
index 7e32690..1dc1e80 100644
--- a/wl/wl-message.el
+++ b/wl/wl-message.el
@@ -135,7 +135,8 @@ If original message buffer already exists, it is re-used."
 	 (name (buffer-name buffer)))
     (with-current-buffer buffer
       (setq wl-message-buffer-original-buffer
-	    (wl-original-message-buffer-get name)))
+	    (wl-original-message-buffer-get name))
+      (run-hooks 'wl-message-buffer-created-hook))
     buffer))
 
 (defun wl-message-buffer-cache-add (key)