Function: gnus-remove-text-with-property

gnus-remove-text-with-property is a byte-compiled function defined in gnus-util.el.gz.

Signature

(gnus-remove-text-with-property PROP)

Documentation

Delete all text in the current buffer with text property PROP.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-util.el.gz
(defun gnus-remove-text-with-property (prop)
  "Delete all text in the current buffer with text property PROP."
  (let ((start (point-min))
	end)
    (unless (get-text-property start prop)
      (setq start (next-single-property-change start prop)))
    (while start
      (setq end (text-property-any start (point-max) prop nil))
      (delete-region start (or end (point-max)))
      (setq start (when end
		    (next-single-property-change start prop))))))