diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/gnus-start.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 5fa2c87e331..5b2635f8d6e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2010-08-15 Katsumi Yamaoka <yamaoka@jpl.org> | ||
| 2 | |||
| 3 | * gnus-start.el (gnus-start-draft-setup): Move doc string forward. | ||
| 4 | |||
| 1 | 2010-08-14 Teodor Zlatanov <tzz@lifelogs.com> | 5 | 2010-08-14 Teodor Zlatanov <tzz@lifelogs.com> |
| 2 | 6 | ||
| 3 | Typo fix "hoo4a" -> "hook". | 7 | Typo fix "hoo4a" -> "hook". |
diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index 91cb5932f44..491926dc331 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el | |||
| @@ -813,8 +813,8 @@ prompt the user for the name of an NNTP server to use." | |||
| 813 | (gnus-run-hooks 'gnus-started-hook)))))) | 813 | (gnus-run-hooks 'gnus-started-hook)))))) |
| 814 | 814 | ||
| 815 | (defun gnus-start-draft-setup () | 815 | (defun gnus-start-draft-setup () |
| 816 | (interactive) | ||
| 817 | "Make sure the draft group exists." | 816 | "Make sure the draft group exists." |
| 817 | (interactive) | ||
| 818 | (gnus-request-create-group "drafts" '(nndraft "")) | 818 | (gnus-request-create-group "drafts" '(nndraft "")) |
| 819 | (unless (gnus-group-entry "nndraft:drafts") | 819 | (unless (gnus-group-entry "nndraft:drafts") |
| 820 | (let ((gnus-level-default-subscribed 1)) | 820 | (let ((gnus-level-default-subscribed 1)) |