From: hmurata <hmurata>
Date: Mon, 13 Sep 2004 11:46:38 +0000 (+0000)
Subject: * wl-vars.el (wl-summary-resend-hook): New hook.
X-Git-Tag: wl-2_12-root~117
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a9f66940e7dcf1766b04a90023dd31942fa9f3f6;p=elisp%2Fwanderlust.git

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