X-Git-Url: https://git.madduck.net/etc/vim.git/blobdiff_plain/c6a7578f561da80240852e5a1465fc351c8cd75c..9b521fac0241d563b5761d2c9db3700aa15ff3b7:/.vim/after/ftplugin/mail.vim

diff --git a/.vim/after/ftplugin/mail.vim b/.vim/after/ftplugin/mail.vim
index bc98dd54..67bd38c4 100644
--- a/.vim/after/ftplugin/mail.vim
+++ b/.vim/after/ftplugin/mail.vim
@@ -128,15 +128,18 @@ augroup fixquotes
 augroup END
 
 nmap <buffer> <C-P><F1> :w<CR>:%!mailplate --keep-unknown official<CR>
-nmap <buffer> <C-P><F2> :w<CR>:%!mailplate --keep-unknown tahi<CR>
-nmap <buffer> <C-P><F3> :w<CR>:%!mailplate --keep-unknown kiwi<CR>
-nmap <buffer> <C-P><F4> :w<CR>:%!mailplate --keep-unknown pobox<CR>
+nmap <buffer> <C-P><F2> :w<CR>:%!mailplate --keep-unknown pobox<CR>
+nmap <buffer> <C-P><F3> :w<CR>:%!mailplate --keep-unknown tahi<CR>
+nmap <buffer> <C-P><F4> :w<CR>:%!mailplate --keep-unknown toni<CR>
+
 nmap <buffer> <C-P><F5> :w<CR>:%!mailplate --keep-unknown kbkg<CR>
-nmap <buffer> <C-P><F6> :w<CR>:%!mailplate --keep-unknown debian<CR>
-nmap <buffer> <C-P><F7> :w<CR>:%!mailplate --keep-unknown uniwh<CR>
-nmap <buffer> <C-P><F8> :w<CR>:%!mailplate --keep-unknown mtfk<CR>
-nmap <buffer> <C-P><F9> :w<CR>:%!mailplate --keep-unknown sudetia<CR>
-nmap <buffer> <C-P><F11> :w<CR>:%!mailplate --keep-unknown thorndonsquashtc<CR>
+nmap <buffer> <C-P><F6> :w<CR>:%!mailplate --keep-unknown krafftwerk<CR>
+nmap <buffer> <C-P><F7> :w<CR>:%!mailplate --keep-unknown siby<CR>
+nmap <buffer> <C-P><F8> :w<CR>:%!mailplate --keep-unknown debian<CR>
+
+nmap <buffer> <C-P><F9> :w<CR>:%!mailplate --keep-unknown uniwh<CR>
+nmap <buffer> <C-P><F10> :w<CR>:%!mailplate --keep-unknown mtfk<CR>
+nmap <buffer> <C-P><F11> :w<CR>:%!mailplate --keep-unknown sudetia<CR>
 nmap <buffer> <C-P><F12> :w<CR>:%!mailplate --keep-unknown default<CR>
 nmap <buffer> <F1> :w<CR>:%!mailplate --auto --keep-unknown 2>/dev/null<CR>
 
@@ -196,4 +199,18 @@ fun! DelegateCompletion(next)
   endif
 endfun
 
-autocmd BufWritePost <buffer> exe 'write ' . fnameescape((exists('$TMPDIR') ? expand('$TMPDIR') : '/tmp') . '/mail.backup.' . strftime('%Y-%m-%d-%H%M%S'))
+function! WriteMailBackup()
+    let l:tmpdir = fnameescape((exists('$TMPDIR') ? expand('$TMPDIR') : '/tmp'))
+    let l:tgtdir = l:tmpdir . '/mail-backups'
+    call mkdir(l:tgtdir, "p", 0o700)
+    let l:modified = &modified
+    let l:filename = l:tgtdir . '/' . strftime('%Y-%m-%d-%H%M%S') . '.msg'
+    exe 'silent update! ' . l:filename
+    if 0 && l:modified
+      echo 'Backup written to ' . l:filename
+    endif
+endfunction
+autocmd BufWritePre <buffer> call WriteMailBackup()
+
+let g:markdown_in_mail = 1
+runtime! ftplugin/markdown.vim