From a9f66940e7dcf1766b04a90023dd31942fa9f3f6 Mon Sep 17 00:00:00 2001 From: hmurata Date: Mon, 13 Sep 2004 11:46:38 +0000 Subject: [PATCH] * wl-vars.el (wl-summary-resend-hook): New hook. * wl-action.el (wl-summary-exec-action-resend-subr): Run `wl-summary-resend-hook'. --- wl/ChangeLog | 7 +++++++ wl/wl-action.el | 1 + wl/wl-vars.el | 3 +++ 3 files changed, 11 insertions(+) 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 + + * 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 * 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) -- 1.7.10.4