(gnus-delay-send-queue): Delete the delay header

before sending.  Suggested by Jan Rychter.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0f6a51a..2784ab0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-18  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * gnus-delay.el (gnus-delay-send-queue): Delete the delay header
+       before sending.  Suggested by Jan Rychter.
+
 2002-06-18  Katsumi Yamaoka <yamaoka@jpl.org>
 
        * dgnushack.el (remove): New compiler macro.

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)