From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 11 Sep 2020 14:45:12 +0000 (+0200)
Subject: Guard against faulty flow-filled emails
X-Git-Tag: emacs-28.0.90~6120
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d608eb1c941aac65d0a1d02b0ac6279e42d8ca8b;p=emacs.git

Guard against faulty flow-filled emails

* lisp/mail/flow-fill.el (fill-flowed): Don't bug out if there's a
space at the end of the buffer.  This is probably not allowed in
the flow-fill specification, but has been observed in the wild.
---

diff --git a/lisp/mail/flow-fill.el b/lisp/mail/flow-fill.el
index f4b55031194..b357b3e2563 100644
--- a/lisp/mail/flow-fill.el
+++ b/lisp/mail/flow-fill.el
@@ -157,7 +157,8 @@ lines."
           ;; Hack: Don't do the flowing on the signature line.
           (when (and (not (looking-at "-- $"))
                      (eq (char-before (line-end-position)) ?\s))
-            (while (eq (char-before (line-end-position)) ?\s)
+            (while (and (not (eobp))
+                        (eq (char-before (line-end-position)) ?\s))
               (end-of-line)
               (when delete-space
                 (delete-char -1))