+2003-02-04 Kai Gro\e,A_\e(Bjohann <kai.grossjohann@uni-duisburg.de>
+
+ * gnus-delay.el (gnus-delay-article): Really create
+ nndraft:delayed group if it doesn't exist.
+
2003-02-04 Jesper Harder <harder@ifa.au.dk>
* gnus-sum.el (gnus-summary-search-article): Speed up by
(list (read-string
"Target date (YYYY-MM-DD) or length of delay (units in [mhdwMY]): "
gnus-delay-default-delay)))
- (let (num unit days year month day hour minute deadline)
+ (let ((group (format "nndraft:%s" gnus-delay-group))
+ num unit days year month day hour minute deadline)
(cond ((string-match
"\\([0-9][0-9][0-9]?[0-9]?\\)-\\([0-9]+\\)-\\([0-9]+\\)"
delay)
(t (error "Malformed delay `%s'" delay)))
(message-add-header (format "%s: %s" gnus-delay-header deadline)))
(set-buffer-modified-p t)
- (nndraft-request-create-group gnus-delay-group)
+ ;; If group does not exist, create it.
+ (unless (gnus-gethash group gnus-newsrc-hashtb)
+ (nndraft-request-create-group gnus-delay-group)
+ ;; Make it active.
+ (gnus-set-active group (cons 1 0)))
(message-disassociate-draft)
(nndraft-request-associate-buffer gnus-delay-group)
(save-buffer 0)