;; Keywords: mail, news, extensions
;; This file is part of GNU Emacs.
;; Keywords: mail, news, extensions
;; This file is part of GNU Emacs.
(list (read-string
"Target date (YYYY-MM-DD), time (hh:mm), or length of delay (units in [mhdwMY]): "
gnus-delay-default-delay)))
(list (read-string
"Target date (YYYY-MM-DD), time (hh:mm), or length of delay (units in [mhdwMY]): "
gnus-delay-default-delay)))
(setq hour (string-to-number (match-string 1 delay))
minute (string-to-number (match-string 2 delay)))
;; Use current time, except...
(setq hour (string-to-number (match-string 1 delay))
minute (string-to-number (match-string 2 delay)))
;; Use current time, except...
(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)