(if face
	(egg-set-face 0 (length output) face output))
    ;; by skk 
    (put-text-property 0 (length output)
		       'font-lock-face '(:underline t)
		       output)
    (insert output)