Gitv したときにで出ちゃう ^M を消す

ソースを弄って直そうと思ったけど・・・どこを直したらいいのか分からなかった・・・。自力でゴリゴリで。

augroup MyGroup
  autocmd!
  autocmd WinLeave * :call s:subm()
augroup END

function! s:subm()
  if &filetype != 'git'
    return
  endif
  if &modifiable
    return
  endif
  setlocal modifiable
  silent! 1,$ s/^M//g
  setlocal nomodifiable
endfunction