Tweak the eww readability function

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

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 66b1767b563b5339b995e393eccc644fe848332f..9490d319226ebe5c26e06223c25cdef78bf8fe56 100644 (file)
--- 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