;; Keywords: mail, news, extensions
;; This file is part of GNU Emacs.
;; Keywords: mail, news, extensions
;; This file is part of GNU Emacs.
(let (num unit days year month day hour minute deadline)
(cond ((string-match
"\\([0-9][0-9][0-9]?[0-9]?\\)-\\([0-9]+\\)-\\([0-9]+\\)"
(let (num unit days year month day hour minute deadline)
(cond ((string-match
"\\([0-9][0-9][0-9]?[0-9]?\\)-\\([0-9]+\\)-\\([0-9]+\\)"
(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)