From: Pengji Zhang Date: Wed, 28 Aug 2024 10:57:35 +0000 (+0800) Subject: Flow fill texts after the last hard newline X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1fd1045822ae4ffb245c3cfadfaa9f4bdfc67ae;p=emacs.git Flow fill texts after the last hard newline * lisp/mail/flow-fill.el (fill-flowed-encode): Use `(point-max)' as `end' if there are no remaining hard newlines in buffer. This ensures that the last paragraph will always be encoded, even without a trailing hard newline. (Bug#72870) (cherry picked from commit fc214b668391abed313920cd44f3d913c8207e0e) --- diff --git a/lisp/mail/flow-fill.el b/lisp/mail/flow-fill.el index 919490ec5aa..d4ad7d45982 100644 --- a/lisp/mail/flow-fill.el +++ b/lisp/mail/flow-fill.el @@ -78,7 +78,9 @@ RFC 2646 suggests 66 characters for readability." (let ((start (point-min)) end) ;; Go through each paragraph, filling it and adding SPC ;; as the last character on each line. - (while (setq end (text-property-any start (point-max) 'hard 't)) + (while (and (< start (point-max)) + (setq end (or (text-property-any start (point-max) 'hard 't) + (point-max)))) (save-restriction (narrow-to-region start end) (let ((fill-column (eval fill-flowed-encode-column t)))