From 320169d17759f10e84f836ad41b879f5fe8a7bd1 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Wed, 22 Aug 2018 13:10:37 +1200
Subject: Add mail shortcut for flagging a message as urgent

---
 vim/after/ftplugin/mail.vim | 5 ++++-
 vim/autoload/mail.vim       | 9 +++++++++
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/vim/after/ftplugin/mail.vim b/vim/after/ftplugin/mail.vim
index c3353cc7..4b6c827c 100644
--- a/vim/after/ftplugin/mail.vim
+++ b/vim/after/ftplugin/mail.vim
@@ -34,7 +34,10 @@ if exists('g:no_plugin_maps') || exists('g:no_mail_maps')
   finish
 endif
 
-" Flag a message as unimportant
+" Flag messages as important/unimportant
+nnoremap <buffer> <LocalLeader>h
+      \ <C-U>:call mail#FlagImportant()<CR>
+let b:undo_ftplugin .= '|nunmap <buffer> <LocalLeader>h'
 nnoremap <buffer> <LocalLeader>l
       \ <C-U>:call mail#FlagUnimportant()<CR>
 let b:undo_ftplugin .= '|nunmap <buffer> <LocalLeader>l'
diff --git a/vim/autoload/mail.vim b/vim/autoload/mail.vim
index 6bec6e55..baff4bbf 100644
--- a/vim/autoload/mail.vim
+++ b/vim/autoload/mail.vim
@@ -1,3 +1,12 @@
+" Flag a message as important
+function! mail#FlagImportant() abort
+  call cursor(1, 1)
+  call search('^$')
+  -
+  call append(line('.'), 'X-Priority: 1')
+  call append(line('.'), 'Importance: High')
+endfunction
+
 " Flag a message as unimportant
 function! mail#FlagUnimportant() abort
   call cursor(1, 1)
-- 
cgit v1.2.3