[Emacs-diffs] trunk r116265: lisp/gnus/gnus-int.el (gnus-request-accept-article): Doc fix

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 116265
revision-id: address@hidden
parent: address@hidden
author: Lars Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2014-02-05 04:35:29 +0000
message:
  lisp/gnus/gnus-int.el (gnus-request-accept-article): Doc fix
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-int.el          gnusint.el-20091113204419-o5vbwnq5f7feedwu-1121

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2014-02-01 08:26:31 +0000
+++ b/lisp/gnus/ChangeLog       2014-02-05 04:35:29 +0000
@@ -1,3 +1,7 @@
+2014-02-05  Lars Ingebrigtsen  <address@hidden>
+
+       * gnus-int.el (gnus-request-accept-article): Doc fix.
+
 2014-02-01  Lars Ingebrigtsen  <address@hidden>
 
        * nnir.el (nnir-request-update-mark): Don't try to update the source

=== modified file 'lisp/gnus/gnus-int.el'
--- a/lisp/gnus/gnus-int.el     2014-01-01 07:43:34 +0000
+++ b/lisp/gnus/gnus-int.el     2014-02-05 04:35:29 +0000
@@ -754,7 +754,6 @@
 
 (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 @@
     (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