Tweak the eww readability function

* lisp/net/eww.el (eww-highest-readability): Require that the
readable bit is at least 100 words (bug#30445).

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 66b1767b563..9490d319226 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -731,7 +731,10 @@ the like."
                    most-negative-fixnum)
                (or (dom-attr result :eww-readability-score)
                    most-negative-fixnum))
-        (setq result highest)))
+        ;; We set a lower bound to how long we accept that the
+        ;; readable portion of the page is going to be.
+        (when (> (length (split-string (dom-texts highest))) 100)
+          (setq result highest))))
     result))
 
 (defvar eww-mode-map