From: martin f. krafft <madduck@madduck.net>
Date: Thu, 14 Oct 2021 01:20:15 +0000 (+1300)
Subject: Better mail backup writing
X-Git-Url: https://git.madduck.net/etc/vim.git/commitdiff_plain/3c2dd3463a596f2606a88d4649b9ec4de83a2f15?hp=ac2dac976ee15b6d7626a83fc4b08d6067536741

Better mail backup writing
---

diff --git a/.vim/after/ftplugin/mail.vim b/.vim/after/ftplugin/mail.vim
index 45b5492..2ab8174 100644
--- a/.vim/after/ftplugin/mail.vim
+++ b/.vim/after/ftplugin/mail.vim
@@ -196,7 +196,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