From: martin f. krafft Date: Sat, 6 Oct 2007 21:31:10 +0000 (+0100) Subject: add attachment checker script X-Git-Url: https://git.madduck.net/etc/vim.git/commitdiff_plain/82e8c9f405839907960535283b0ff9c9eaa6f977?ds=sidebyside;hp=75a28a34ac5f43846265f99d78266976d953bcf3 add attachment checker script --- diff --git a/.vim/plugin/mail.vim b/.vim/plugin/mail.vim new file mode 100644 index 0000000..0f875a4 --- /dev/null +++ b/.vim/plugin/mail.vim @@ -0,0 +1,23 @@ +" Checking attachments in edited emails for use in Mutt: warns user when +" exiting +" by Hugo Haas - 20 June 2004 +" based on an idea by The Doctor What explained at +" +" http://www.vim.org/scripts/download_script.php?src_id=3165 +autocmd BufUnload mutt-* call CheckAttachments() +function! CheckAttachments() + let l:english = 'attach\(ing\|ed\|ment\)\?' + let l:french = 'attach\(e\|er\|ée\?s\?\|ement\|ant\)' + let l:german = 'an(gehängt\|hängsel)\|bei(gefügt|lage)\|im\_sanhang' + let l:ic = &ignorecase + if (l:ic == 0) + set ignorecase + endif + if (search('^\([^>|].*\)\?\<\(re-\?\)\?\('.l:english.'\|'.l:german.'\)\>', "w") != 0) + let l:temp = inputdialog("Do you want to attach a file? [Hit return] ") + endif + if (l:ic == 0) + set noignorecase + endif + echo +endfunction