Function: gnus-article-only-boring-p

gnus-article-only-boring-p is a byte-compiled function defined in gnus-art.el.gz.

Signature

(gnus-article-only-boring-p)

Documentation

Decide whether there is only boring text remaining in the article.

Something "interesting" is a word of at least two letters that does not have a face in gnus-article-boring-faces.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun gnus-article-only-boring-p ()
  "Decide whether there is only boring text remaining in the article.
Something \"interesting\" is a word of at least two letters that does
not have a face in `gnus-article-boring-faces'."
  (when (and gnus-article-skip-boring
	     (boundp 'gnus-article-boring-faces)
	     (symbol-value 'gnus-article-boring-faces))
    (save-excursion
      (catch 'only-boring
	(while (re-search-forward "\\b\\w\\w" nil t)
	  (forward-char -1)
          (when (not (seq-intersection
		      (gnus-faces-at (point))
                      (symbol-value 'gnus-article-boring-faces)
                      #'eq))
	    (throw 'only-boring nil)))
	(throw 'only-boring t)))))