Make `gnus-delay-header' available in `message-send-hook'

* gnus-delay.el (gnus-delay-send-queue): Remove `gnus-delay-header'
last so it can be used in `message-send-hook'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e76cc2b..72d03b2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-10-04  Peter Münster <pmlists@free.fr>  (tiny change)
+
+       * gnus-delay.el (gnus-delay-send-queue): Remove `gnus-delay-header'
+       last so it can be used in `message-send-hook'.
+
 2014-09-29  Daiki Ueno  <ueno@gnu.org>
 
        * mml.el (mml-parse-1): Error out if unknown mode is specified in

diff --git a/lisp/gnus-delay.el b/lisp/gnus-delay.el
index 5432d4d..75b967e 100644 (file)
--- 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)