Function: gnus-article-hidden-text-p

gnus-article-hidden-text-p is a byte-compiled function defined in gnus-art.el.gz.

Signature

(gnus-article-hidden-text-p TYPE)

Documentation

Say whether the current buffer contains hidden text of type TYPE.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun gnus-article-hidden-text-p (type)
  "Say whether the current buffer contains hidden text of type TYPE."
  (let ((pos (text-property-any (point-min) (point-max) 'article-type type)))
    (while (and pos
		(not (get-text-property pos 'invisible))
		(not (get-text-property pos 'dummy-invisible)))
      (setq pos
	    (text-property-any (1+ pos) (point-max) 'article-type type)))
    (if pos
	'hidden
      nil)))