diff options
| author | Lars Ingebrigtsen | 2022-08-16 14:58:43 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-08-16 15:01:35 +0200 |
| commit | 190f2db78606c3afc35d72902f52d6eec206642e (patch) | |
| tree | 6f90b6e4ddbefd5b5d6084975f54bef29b13798b | |
| parent | ad2dba38b2347c9070700c789d5097b4bbafddf5 (diff) | |
| download | emacs-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.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." | |||
| 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)) |