.vim/plugin/mail.vim

   1 " Checking attachments in edited emails for use in Mutt: warns user when
   2 " exiting
   3 " by Hugo Haas <hugo@larve.net> - 20 June 2004
   4 " based on an idea by The Doctor What explained at
   5 " <mid:caq406$rq4$1@FreeBSD.csie.NCTU.edu.tw>
   6 " http://www.vim.org/scripts/download_script.php?src_id=3165
   7 autocmd BufUnload mutt-* call CheckAttachments()
   8 function! CheckAttachments()
   9   let l:english = 'attach\(ing\|ed\|ment\)\?'
  10   let l:french = 'attach\(e\|er\|ée\?s\?\|ement\|ant\)'
  11   let l:german = 'an(gehängt\|hängsel)\|bei(gefügt|lage)\|im\_sanhang'
  12   let l:ic = &ignorecase
  13   if (l:ic == 0)
  14     set ignorecase
  15   endif
  16   if (search('^\([^>|].*\)\?\<\(re-\?\)\?\('.l:english.'\|'.l:german.'\)\>', "w") != 0)
  17     let l:temp = inputdialog("Do you want to attach a file? [Hit return] ")
  18   endif
  19   if (l:ic == 0)
  20     set noignorecase
  21   endif
  22   echo
  23 endfunction