From c4b1c354d398c6734d4ef7a92ad4dfabbfe83f34 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 13 Aug 2010 10:32:35 +0000 Subject: [PATCH] Make gnus-start-draft-setup interactive. From Ted Zlatanov . * gnus-start.el (gnus-start-draft-setup): Make it interactive. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-start.el | 1 + 2 files changed, 5 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index fb4f6e64d02..884a454925f 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2010-08-12 Teodor Zlatanov + + * gnus-start.el (gnus-start-draft-setup): Make it interactive. + 2010-08-06 Katsumi Yamaoka * rfc2047.el (rfc2047-encode): Use utf-8 as a last resort if diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 9ef251f2147..91cb5932f44 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -813,6 +813,7 @@ prompt the user for the name of an NNTP server to use." (gnus-run-hooks 'gnus-started-hook)))))) (defun gnus-start-draft-setup () + (interactive) "Make sure the draft group exists." (gnus-request-create-group "drafts" '(nndraft "")) (unless (gnus-group-entry "nndraft:drafts") -- 2.39.2