From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Tue, 24 Sep 2002 17:16:50 +0000 (+0000)
Subject: 	* gnus-start.el (gnus-1): Create nndraft:queue.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=150850f71b7a4ec7d0b66b213672a9def7dd85d0;p=gnus

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dea547731..e2e340a0a 100644
--- 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 8ed204bd8..bab7682d3 100644
--- 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 8d02f2458..635f34ab8 100644
--- 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)