* lisp/net/shr.el (shr-fill-text): Actually fill the text. (Bug#27399)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 2a6b3960c467140ac5c95480ac9f7153d8e1f3cc..45ef379af545f14c5b143e487d4a6109b60d7419 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -512,6 +512,7 @@ size, and full-buffer size."
                                        (* (frame-char-width) 2)
                                      0))))
        (shr-insert text)
+       (shr-fill-lines (point-min) (point-max))
        (buffer-string)))))
 
 (define-inline shr-char-breakable-p (char)