From 150850f71b7a4ec7d0b66b213672a9def7dd85d0 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Tue, 24 Sep 2002 17:16:50 +0000 Subject: [PATCH] * gnus-start.el (gnus-1): Create nndraft:queue. --- lisp/ChangeLog | 4 ++++ lisp/gnus-art.el | 2 +- lisp/gnus-start.el | 2 ++ 3 files changed, 7 insertions(+), 1 deletion(-) 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 + + * gnus-start.el (gnus-1): Create nndraft:queue. + 2002-09-24 Simon Josefsson * 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) -- 2.34.1