;; Author: Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
;; Keywords: mail, news, extensions
;; Author: Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
;; Keywords: mail, news, extensions
(append deadline nil))))
;; If this time has passed already, add a day.
(when (< deadline (gnus-float-time))
(append deadline nil))))
;; If this time has passed already, add a day.
(when (< deadline (gnus-float-time))
;; Convert seconds to date header.
(setq deadline (message-make-date
(seconds-to-time deadline))))
;; Convert seconds to date header.
(setq deadline (message-make-date
(seconds-to-time deadline))))
(when (gnus-group-entry group)
(gnus-activate-group group)
(add-hook 'message-send-hook
(when (gnus-group-entry group)
(gnus-activate-group group)
(add-hook 'message-send-hook
(setq articles (nndraft-articles))
(while (setq article (pop articles))
(gnus-request-head article group)
(setq articles (nndraft-articles))
(while (setq article (pop articles))
(gnus-request-head article group)