(gnus-start-draft-setup): Make sure that the new group is started out empty.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe4a9e3..f7fa736 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,8 @@
        (gnus-1): Don't create the nndrafts group twice.
        (gnus-setup-news): There's no need to read the active file here, since
        that's done again later on a per-backend basis.
+       (gnus-start-draft-setup): Make sure that the new group is started out
+       empty.
 
        * gnus-agent.el (gnus-agentize): Don't create the queue group
        automatically on startup.  It'll be created later, if needed.

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 69ffaa3..d9e4327 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -815,7 +815,8 @@ prompt the user for the name of an NNTP server to use."
   (gnus-request-create-group "drafts" '(nndraft ""))
   (unless (gnus-group-entry "nndraft:drafts")
     (let ((gnus-level-default-subscribed 1))
-      (gnus-subscribe-group "nndraft:drafts" nil '(nndraft ""))))
+      (gnus-subscribe-group "nndraft:drafts" nil '(nndraft "")))
+    (setcar (gnus-group-entry "nndraft:drafts") 0))
   (unless (equal (gnus-group-get-parameter "nndraft:drafts" 'gnus-dummy t)
                 '((gnus-draft-mode)))
     (gnus-group-set-parameter