From: martin f. krafft Date: Tue, 16 Oct 2007 10:45:02 +0000 (+0100) Subject: move mail functions to mail ftplugin X-Git-Url: https://git.madduck.net/etc/vim.git/commitdiff_plain/5d2073d11c96de3eafea168488684aed93daee4d move mail functions to mail ftplugin --- diff --git a/.vim/ftplugin/mail.vim b/.vim/ftplugin/mail.vim index bc6114d..b5d239b 100644 --- a/.vim/ftplugin/mail.vim +++ b/.vim/ftplugin/mail.vim @@ -4,3 +4,40 @@ nmap :w:%!~/.bin/mail/mailplate --keep-unknown debian nmap :w:%!~/.bin/mail/mailplate --keep-unknown ul nmap :w:%!~/.bin/mail/mailplate --keep-unknown sudetia nmap :w:%!~/.bin/mail/mailplate --auto --keep-unknown 2>/dev/null + +" 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\)\?\|included with this mail' + let l:french = 'attach\(e\|er\|ée\?s\?\|ement\|ant\)' + let l:german = 'an\(gehängt\|hängsel\)\|bei\(gefügt|lage\)\|\(im\|siehe\)\_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 + +" change subject line +" Before: Subject: old +" After : Subject: New (was: old) +" http://strcat.de/wiki/dotfiles#vim +" map ,sw 1G/^Subject: :s/Re:/was:/Wi ($)0Whi +map ns 1G/^Subject: /:s,\(Subject: \)\(Re: \)*\(.*\)$,\1 (was: \3),:set nohlsf li + +" Delete 'was' in the Subject. +" Before: Subject: New (was: old) +" After : Subject: New +" http://strcat.de/wiki/dotfiles#vim +map ;dw 1G/^Subject: /:s, *(was: .*)$:set nohlsf l diff --git a/.vim/plugin/mail.vim b/.vim/plugin/mail.vim deleted file mode 100644 index 0f875a4..0000000 --- a/.vim/plugin/mail.vim +++ /dev/null @@ -1,23 +0,0 @@ -" 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