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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dea5477..e2e340a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-24  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-start.el (gnus-1): Create nndraft:queue.
+
 2002-09-24  Simon Josefsson  <jas@extundo.com>
 
        * mml2015.el (top-level): Require mm-util for mm-make-temp-file.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 8ed204b..bab7682 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5361,7 +5361,7 @@ guessing."
                                           gnus-button-handle-describe-prefix "")))
 
 (defun gnus-button-handle-apropos-variable (url)
-  "Call apropos when pushing the corresponing URL button."
+  "Call apropos when pushing the corresponding URL button."
   (apropos-variable (gnus-replace-in-string url gnus-button-handle-describe-prefix "")))
 
 (defcustom gnus-button-man-level 5

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