lisp/gnus/gnus-delay.el (gnus-delay-send-queue): Remove `gnus-delay-header' last...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index be60d7777c4bc1484a43419913cff82dfbfa3492..f9702cd48f5e42ab59dd6929d6b5bf842e8b2ddd 100644 (file)
--- 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 5432d4da9f162d85a0c4a645ee485287a098e6e8..75b967e2d4884f64915d56fdf517f30827873556 100644 (file)
--- 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)