Function: gnus-remove-text-properties-when

gnus-remove-text-properties-when is a byte-compiled function defined in gnus-util.el.gz.

Signature

(gnus-remove-text-properties-when PROPERTY VALUE START END PROPERTIES &optional OBJECT)

Documentation

Like remove-text-properties, only applied on where PROPERTY is VALUE.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defun gnus-remove-text-properties-when
  (property value start end properties &optional object)
  "Like `remove-text-properties', only applied on where PROPERTY is VALUE."
  (let (point)
    (while (and start
		(< start end)
		(setq point (text-property-not-all start end property value)))
      (remove-text-properties start point properties object)
      (setq start (text-property-any point end property value)))
    (if start
	(remove-text-properties start end properties object))
    t))