diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-16 14:58:43 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-08-16 15:01:35 +0200 |
commit | 190f2db78606c3afc35d72902f52d6eec206642e (patch) | |
tree | 6f90b6e4ddbefd5b5d6084975f54bef29b13798b | |
parent | ad2dba38b2347c9070700c789d5097b4bbafddf5 (diff) | |
download | emacs-190f2db78606c3afc35d72902f52d6eec206642e.tar.gz |
Fix buffer-start cleanup in message-indent-citation
* lisp/gnus/message.el (message-indent-citation): Fix thinko in loop.
-rw-r--r-- | lisp/gnus/message.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 90d8a744dec..ad74d2f1297 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -3928,9 +3928,8 @@ However, if `message-yank-prefix' is non-nil, insert that prefix on each line." (goto-char start) (forward-line 1)))) ;; Delete blank lines at the start of the buffer. - (while (and (point-min) - (eolp) - (not (eobp))) + (goto-char (point-min)) + (while (and (eolp) (not (eobp))) (message-delete-line)) ;; Delete blank lines at the end of the buffer. (goto-char (point-max)) |