* wl-vars.el (wl-summary-resend-hook): New hook.

* wl-action.el (wl-summary-exec-action-resend-subr): Run
`wl-summary-resend-hook'.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index b595937..ddda7f7 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,10 @@
+2004-09-13  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+       * wl-vars.el (wl-summary-resend-hook): New hook.
+
+       * wl-action.el (wl-summary-exec-action-resend-subr): Run
+       `wl-summary-resend-hook'.
+
 2004-09-12  Yuuichi Teranishi  <teranisi@gohome.org>
 
        * wl-vars.el (wl-draft-forward-hook): Setup to put forwarded flag.

diff --git a/wl/wl-action.el b/wl/wl-action.el
index 1d34e34..5a21d1c 100644 (file)
--- a/wl/wl-action.el
+++ b/wl/wl-action.el
@@ -604,6 +604,7 @@ Return number if put mark succeed"
        (goto-char beg)
        (when (looking-at "From ")
          (replace-match "X-From-Line: ")))
+      (run-hooks 'wl-summary-resend-hook)
       ;; Send it.
       (wl-draft-dispatch-message)
       (kill-buffer (current-buffer)))

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 58ab75d..507f0d0 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -775,6 +775,9 @@ This hook runs on the summary buffer.")
   "A hook called when `wl-summary-forward' is called.
 This hook runs on the summary buffer.")
 
+(defvar wl-summary-resend-hook nil
+  "A hook runs on the resent message buffer before sending process starts.")
+
 (defvar wl-mail-setup-hook nil
   "A hook called when Draft is prepared.")
 (defvar wl-draft-reedit-hook '(wl-draft-remove-text-plain-tag)