* 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 (file)
--- 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 (file)
--- 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)