From 3660c612b3b0f45fe8bf80d1ed52d50c41f48713 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 5 Feb 2014 04:35:29 +0000 Subject: [PATCH] lisp/gnus/gnus-int.el (gnus-request-accept-article): Doc fix --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/gnus-int.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index c0b009773c8..560d03439c1 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2014-02-05 Lars Ingebrigtsen + + * gnus-int.el (gnus-request-accept-article): Doc fix. + 2014-02-01 Lars Ingebrigtsen * nnir.el (nnir-request-update-mark): Don't try to update the source diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el index 34bf78a16b8..edf61197638 100644 --- a/lisp/gnus/gnus-int.el +++ b/lisp/gnus/gnus-int.el @@ -754,7 +754,6 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned." (defun gnus-request-accept-article (group &optional gnus-command-method last no-encode) - ;; Make sure there's a newline at the end of the article. (when (stringp gnus-command-method) (setq gnus-command-method (gnus-server-to-method gnus-command-method))) (when (and (not gnus-command-method) @@ -762,6 +761,7 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned." (setq gnus-command-method (or (gnus-find-method-for-group group) (gnus-group-name-to-method group)))) (goto-char (point-max)) + ;; Make sure there's a newline at the end of the article. (unless (bolp) (insert "\n")) (unless no-encode -- 2.39.2