* gnus-start.el (gnus-1): Create nndraft:queue, nndraft:drafts.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e2e340a..86fcab9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,6 @@
 2002-09-24  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
-       * gnus-start.el (gnus-1): Create nndraft:queue.
+       * gnus-start.el (gnus-1): Create nndraft:queue, nndraft:drafts.
 
 2002-09-24  Simon Josefsson  <jas@extundo.com>
 

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 635f34a..cdf1d52 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -733,6 +733,7 @@ prompt the user for the name of an NNTP server to use."
          ;; Do the actual startup.
          (if gnus-agent
              (gnus-request-create-group "queue" '(nndraft "")))
+         (gnus-request-create-group "drafts" '(nndraft ""))
          (gnus-setup-news nil level dont-connect)
          (gnus-run-hooks 'gnus-setup-news-hook)
          (gnus-start-draft-setup)