* wl-draft.el (wl-draft-edit-string): Call

`wl-draft-reedit-hook' instead of `wl-mail-setup-hook'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4face20..a237aef 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2000-07-04  Kenichi OKADA      <okada@opaopa.org>
+
+       * wl-draft.el (wl-draft-edit-string): Call
+       `wl-draft-reedit-hook' instead of `wl-mail-setup-hook'.
+
 2000-07-03  Katsumi Yamaoka    <yamaoka@jpl.org>
 
        * wl-demo.el (wl-demo): Hide scroll bars, etc. first.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 0259934..00ad3a2 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -521,7 +521,7 @@ the `wl-smtp-features' variable."
       (delete-other-windows)
       (kill-buffer tmp-buf)))
   (setq buffer-read-only nil) ;;??
-  (run-hooks 'wl-mail-setup-hook))
+  (run-hooks 'wl-draft-reedit-hook))
 
 (defun wl-draft-insert-current-message (dummy)
   (interactive)