;;; gnus-delay.el --- Delayed posting of articles
-;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc.
;; Author: Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
;; Keywords: mail, news, extensions
(set-buffer-modified-p t)
;; If group does not exist, create it.
(let ((group (format "nndraft:%s" gnus-delay-group)))
- (unless (gnus-gethash group gnus-newsrc-hashtb)
- (nndraft-request-create-group gnus-delay-group)
- ;; Make it active.
- (gnus-set-active group (cons 1 0))))
+ (gnus-agent-queue-setup gnus-delay-group))
(message-disassociate-draft)
(nndraft-request-associate-buffer gnus-delay-group)
(save-buffer 0)
(message-send-hook (copy-sequence message-send-hook))
articles
article deadline)
- (when (gnus-gethash group gnus-newsrc-hashtb)
+ (when (gnus-group-entry group)
(gnus-activate-group group)
(add-hook 'message-send-hook
'(lambda ()