andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

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

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