mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Make gnus-start-draft-setup interactive.

Browse source 
From Ted Zlatanov <tzz@lifelogs.com>.

* gnus-start.el (gnus-start-draft-setup): Make it interactive.
This commit is contained in:
Katsumi Yamaoka 2010-08-13 10:32:35 +00:00
parent 94c97d853f
commit c4b1c354d3
2 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/gnus/gnus-start.el
View file

@ -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")