(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)))
(setq articles (nndraft-articles))
(while (setq article (pop articles))
(gnus-request-head article group)