]> 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:

navigate wrapped lines properly
[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
45
46 " http://dollyfish.net.nz/blog/2008-04-01/mutt-and-vim-custom-autocompletion
47 fun! LBDBCompleteFn(findstart, base)
48   let line = getline('.')
49   if a:findstart
50     " locate the start of the word
51     let start = col('.') - 1
52     while start > 0 && line[start - 1] =~ '[^:,]'
53       let start -= 1
54     endwhile
55     while start < col('.') && line[start] =~ '[:, ]'
56       let start += 1
57     endwhile
58     return start
59   else
60     let res = []
61     let query = substitute(a:base, '"', '', 'g')
62     let query = substitute(query, '\s*<.*>\s*', '', 'g')
63     for m in LbdbQuery(query)
64       call complete_add(printf('"%s" <%s>', escape(m[0], '"'), m[1]))
65       if complete_check()
66         break
67       endif
68     endfor
69     return res
70   endif
71 endfun
72 set completefunc=LBDBCompleteFn
73
74 " And this magic by James Vega, which ensures that we only complete with lbdb
75 " on the recipient lines of the mail header.
76 ino <expr> <C-n> DelegateCompletion(1)
77 ino <expr> <C-p> DelegateCompletion(0)
78
79 fun! DelegateCompletion(next)
80   if getline('.') =~? '^\%(To\|B\=Cc\):'
81     return "\x18\x15"
82   elseif a:next
83     return "\x0e"
84   else
85     return "\x10"
86   endif
87 endfun