Function: rmail-mime-fix-inserted-faces

rmail-mime-fix-inserted-faces is a byte-compiled function defined in rmailmm.el.gz.

Signature

(rmail-mime-fix-inserted-faces START)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmailmm.el.gz
;; Put font-lock-face properties matching face properties on text
;; inserted, e.g., by shr, in text from START to point.
(defun rmail-mime-fix-inserted-faces (start)
  (while (< start (point))
    (let ((face (get-text-property start 'face))
	  (next (next-single-property-change
		 start 'face (current-buffer) (point))))
      (if face				; anything to do?
	  (put-text-property start next 'font-lock-face face))
      (setq start next))))