Import Oort Gnus v0.10.

[elisp/gnus.git-] / lisp / gnus-delay.el

diff --git a/lisp/gnus-delay.el b/lisp/gnus-delay.el
index 7e712b8..cb4fc91 100644 (file)
--- a/lisp/gnus-delay.el
+++ b/lisp/gnus-delay.el
@@ -145,10 +145,14 @@ DELAY is a string, giving the length of the time.  Possible values are:
   (interactive)
   (save-excursion
     (let* ((group (format "nndraft:%s" gnus-delay-group))
+          (message-send-hook (copy-sequence message-send-hook))
           articles
           article deadline)
       (when (gnus-gethash group gnus-newsrc-hashtb)
        (gnus-activate-group group)
+       (add-hook 'message-send-hook
+                 '(lambda ()
+                    (message-remove-header gnus-delay-header)))
        (setq articles (nndraft-articles))
        (while (setq article (pop articles))
          (gnus-request-head article group)