PATCH: make it possible to check for gnus-delay-header in message-send-hook

[Peter Münster]

Hi,

Please find here a small patch:

--8<---------------cut here---------------start------------->8---
diff --git a/lisp/gnus-delay.el b/lisp/gnus-delay.el
index 5432d4d..75b967e 100644
--- a/lisp/gnus-delay.el
+++ b/lisp/gnus-delay.el
@@ -153,7 +153,7 @@ DELAY is a string, giving the length of the time. Possible values are:
(when (gnus-group-entry group)
(gnus-activate-group group)
(add-hook 'message-send-hook
- (lambda () (message-remove-header gnus-delay-header)))
+ (lambda () (message-remove-header gnus-delay-header)) t)
(setq articles (nndraft-articles))
(while (setq article (pop articles))
(gnus-request-head article group)
--8<---------------cut here---------------end--------------->8---

This patch makes it possible to check for gnus-delay-header in
message-send-hook. This is needed for example, if you want interactive
actions in the message-send-hook:

--8<---------------cut here---------------start------------->8---
(add-hook 'message-send-hook
(lambda ()
(unless (message-field-value gnus-delay-header)
(do-interactive-things-like-spell-checking))))
--8<---------------cut here---------------end--------------->8---

It would be nice, if you could add this to gnus-master.

TIA,

[Ted Zlatanov]

On Mon, 30 Jun 2014 13:44:53 +0200 Peter Münster <***@free.fr> wrote:

PM> This patch makes it possible to check for gnus-delay-header in
PM> message-send-hook.

Thanks; installed.

Ted