From: Lars Ingebrigtsen Date: Wed, 5 Feb 2014 04:35:29 +0000 (+0000) Subject: lisp/gnus/gnus-int.el (gnus-request-accept-article): Doc fix X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~171 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3660c612b3b0f45fe8bf80d1ed52d50c41f48713;p=emacs.git lisp/gnus/gnus-int.el (gnus-request-accept-article): Doc fix --- 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