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