Mercurial > emacs
changeset 109763:410b495bd9be
Make gnus-start-draft-setup interactive.
From Ted Zlatanov <tzz@lifelogs.com>.
* gnus-start.el (gnus-start-draft-setup): Make it interactive.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Fri, 13 Aug 2010 10:32:35 +0000 |
| parents | 779e72b463fd |
| children | f5fa348fd8eb |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-start.el |
| diffstat | 2 files changed, 5 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Fri Aug 13 11:10:05 2010 +0300 +++ b/lisp/gnus/ChangeLog Fri Aug 13 10:32:35 2010 +0000 @@ -1,3 +1,7 @@ +2010-08-12 Teodor Zlatanov <tzz@lifelogs.com> + + * gnus-start.el (gnus-start-draft-setup): Make it interactive. + 2010-08-06 Katsumi Yamaoka <yamaoka@jpl.org> * rfc2047.el (rfc2047-encode): Use utf-8 as a last resort if
--- a/lisp/gnus/gnus-start.el Fri Aug 13 11:10:05 2010 +0300 +++ b/lisp/gnus/gnus-start.el Fri Aug 13 10:32:35 2010 +0000 @@ -813,6 +813,7 @@ (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")