(if face
	(egg-set-face 0 len1 face converted))

    ;;skk
    (put-text-property 0 (length converted)
		       'font-lock-face '(:underline t)
		       converted)

    converted))