aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2022-08-16 14:58:43 +0200
committerLars Ingebrigtsen2022-08-16 15:01:35 +0200
commit190f2db78606c3afc35d72902f52d6eec206642e (patch)
tree6f90b6e4ddbefd5b5d6084975f54bef29b13798b
parentad2dba38b2347c9070700c789d5097b4bbafddf5 (diff)
downloademacs-190f2db78606c3afc35d72902f52d6eec206642e.tar.gz
emacs-190f2db78606c3afc35d72902f52d6eec206642e.zip
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.el5
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."
3928 (goto-char start) 3928 (goto-char start)
3929 (forward-line 1)))) 3929 (forward-line 1))))
3930 ;; Delete blank lines at the start of the buffer. 3930 ;; Delete blank lines at the start of the buffer.
3931 (while (and (point-min) 3931 (goto-char (point-min))
3932 (eolp) 3932 (while (and (eolp) (not (eobp)))
3933 (not (eobp)))
3934 (message-delete-line)) 3933 (message-delete-line))
3935 ;; Delete blank lines at the end of the buffer. 3934 ;; Delete blank lines at the end of the buffer.
3936 (goto-char (point-max)) 3935 (goto-char (point-max))