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

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index be60d7777c4..f9702cd48f5 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/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-10-02  Daiki Ueno  <ueno@gnu.org>
 
         * mml.el (mml-parse-1): Error out if unknown mode is specified in
diff --git a/lisp/gnus/gnus-delay.el b/lisp/gnus/gnus-delay.el
index 5432d4da9f1..75b967e2d48 100644
--- a/lisp/gnus/gnus-delay.el
+++ b/lisp/gnus/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)