let &titlestring = $USER . "@" . hostname() . " " . expand("%:p")
if &term == "screen"
  set t_ts=^[k
  set t_fs=^[
endif
if &term == "screen" || &term == "xterm"
  set title
endif

autocmd BufEnter * let &titlestring = ' ' . expand("%:t")
set title