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

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,
-- 
           Peter

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

[Ted Zlatanov]

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

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

Thanks; installed.

Ted