]> git.madduck.net Git - etc/vim.git/blob - .vim/ftplugin/mail.vim

madduck's git repository

Every one of the projects in this repository is available at the canonical URL git://git.madduck.net/madduck/pub/<projectpath> — see each project's metadata for the exact URL.

All patches and comments are welcome. Please squash your changes to logical commits before using git-format-patch and git-send-email to patches@git.madduck.net. If you'd read over the Git project's submission guidelines and adhered to them, I'd be especially grateful.

SSH access, as well as push access can be individually arranged.

If you use my repositories frequently, consider adding the following snippet to ~/.gitconfig and using the third clone URL listed for each project:

[url "git://git.madduck.net/madduck/"]
  insteadOf = madduck:

add perl ft with tabs
[etc/vim.git] / .vim / ftplugin / mail.vim
1 nmap <buffer> <C-P><F1> :w<CR>:%!~/.bin/mail/mailplate --keep-unknown official<CR>
2 nmap <buffer> <C-P><F2> :w<CR>:%!~/.bin/mail/mailplate --keep-unknown private<CR>
3 nmap <buffer> <C-P><F3> :w<CR>:%!~/.bin/mail/mailplate --keep-unknown debian<CR>
4 nmap <buffer> <C-P><F5> :w<CR>:%!~/.bin/mail/mailplate --keep-unknown ul<CR>
5 nmap <buffer> <C-P><F6> :w<CR>:%!~/.bin/mail/mailplate --keep-unknown uzh<CR>
6 nmap <buffer> <C-P><F9> :w<CR>:%!~/.bin/mail/mailplate --keep-unknown sudetia<CR>
7 nmap <buffer> <F1> :w<CR>:%!~/.bin/mail/mailplate --auto --keep-unknown 2>/dev/null<CR>
8
9 " Checking attachments in edited emails for use in Mutt: warns user when
10 " exiting
11 " by Hugo Haas <hugo@larve.net> - 20 June 2004
12 " based on an idea by The Doctor What explained at
13 " <mid:caq406$rq4$1@FreeBSD.csie.NCTU.edu.tw>
14 " http://www.vim.org/scripts/download_script.php?src_id=3165
15 autocmd BufUnload mutt-* call CheckAttachments()
16 function! CheckAttachments()
17   let l:english = 'attach\(ing\|ed\|ment\)\?\|included with this mail'
18   let l:french = 'attach\(e\|er\|ée\?s\?\|ement\|ant\)'
19   let l:german = 'an\(gehängt\|hängsel\|bei\)\|bei\(gefügt|lage\)\|\(im\|siehe\)\_sanhang'
20   let l:ic = &ignorecase
21   if (l:ic == 0)
22     set ignorecase
23   endif
24   if (search('^\([^>|].*\)\?\<\(re-\?\)\?\('.l:english.'\|'.l:german.'\)\>', "w") != 0)
25     let l:temp = inputdialog("Do you want to attach a file? [Hit return] ")
26   endif
27   if (l:ic == 0)
28     set noignorecase
29   endif
30   echo
31 endfunction
32
33 " change subject line
34 " Before: Subject: old
35 " After : Subject: New (was: old)
36 " http://strcat.de/wiki/dotfiles#vim
37 " map ,sw 1G/^Subject: <CR>:s/Re:/was:/<CR>Wi (<C-O>$)<ESC>0Whi
38 map <Leader>ns 1G/^Subject: /<CR>:s,\(Subject: \)\(Re: \)*\(.*\)$,\1 (was: \3),<CR>:set nohls<CR>f li
39
40 " Delete 'was' in the Subject.
41 " Before: Subject: New (was: old)
42 " After : Subject: New
43 " http://strcat.de/wiki/dotfiles#vim
44 map <Leader>dw 1G/^Subject: /<CR>:s, *(was: .*)$<CR>:set nohls<CR>f l