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
      (let ((inhibit-point-motion-hooks t))
	(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))))))