From ecb15a1227303ae50da16081c7049d37e01e7f70 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Fri, 3 Aug 2018 12:30:38 +1200
Subject: Add mapping to flag mail messages as unimportant

---
 vim/after/ftplugin/mail.vim | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/vim/after/ftplugin/mail.vim b/vim/after/ftplugin/mail.vim
index 74261d8c..34c524e1 100644
--- a/vim/after/ftplugin/mail.vim
+++ b/vim/after/ftplugin/mail.vim
@@ -33,3 +33,16 @@ let b:undo_ftplugin .= '|nunmap <buffer> <LocalLeader>q'
       \ . '|nunmap <buffer> <LocalLeader>Q'
       \ . '|nunmap <buffer> <LocalLeader>QQ'
       \ . '|xunmap <buffer> <LocalLeader>Q'
+
+" Flag a message as unimportant
+function! s:FlagUnimportant()
+  call cursor(1, 1)
+  call search('^$')
+  -
+  call append(line('.'), 'X-Priority: 5')
+  call append(line('.'), 'Importance: Low')
+endfunction
+nnoremap <buffer>
+      \ <LocalLeader>l
+      \ <C-U>:call <SID>FlagUnimportant()<CR>
+let b:undo_ftplugin .= '|nunmap <buffer> <LocalLeader>l'
-- 
cgit v1.2.3