augroup gpg
  au!
  autocmd BufReadPre,FileReadPre *.asc !cp <afile> <afile>.bak
  autocmd BufReadPre,FileReadPre	*.asc let ch_save = &ch|set ch=2
  autocmd BufReadPost,FileReadPost	*.asc '[,']!gpg -q
  autocmd BufReadPost,FileReadPost	*.asc let &ch = ch_save|unlet ch_save
  autocmd BufReadPost,FileReadPost	*.asc execute ":doautocmd BufReadPost " . expand("%:r")
  autocmd BufWritePost,FileWritePost	*.asc !mv <afile> <afile>:r
  autocmd BufWritePost,FileWritePost	*.asc !gpg -eaq <afile>:r
  autocmd BufWritePost,FileWritePost	*.asc !rm <afile>:r
augroup END