From 009bd6626ea6e33b59a31a219df628ed0cc5a46c Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Sat, 22 Jun 2019 19:00:32 +1200
Subject: Move mail ftplugin function out into autoload

Now that it isn't called on every load.
---
 vim/after/ftplugin/mail.vim | 24 +-----------------------
 vim/autoload/mail.vim       | 23 +++++++++++++++++++++++
 2 files changed, 24 insertions(+), 23 deletions(-)

(limited to 'vim')

diff --git a/vim/after/ftplugin/mail.vim b/vim/after/ftplugin/mail.vim
index 2083aaaf..90278bbe 100644
--- a/vim/after/ftplugin/mail.vim
+++ b/vim/after/ftplugin/mail.vim
@@ -49,30 +49,8 @@ let b:undo_ftplugin .= '|delcommand SuggestStart'
 SuggestStart
 
 " Normalise quoting
-function! s:StrictQuote(start, end) abort
-  let body = 0
-  for lnum in range(a:start, a:end)
-
-    " Get current line
-    let line = getline(lnum)
-
-    " Get the leading quote string, if any; skip if there isn't one
-    let quote = matchstr(line, '^>[> ]*')
-    if !strlen(quote)
-      continue
-    endif
-
-    " Normalise the quote with no spaces
-    let quote = substitute(quote, '[^>]', '', 'g')
-
-    " Re-set the line
-    let line = substitute(line, '^[> ]\+', quote, '')
-    call setline(lnum, line)
-
-  endfor
-endfunction
 command -buffer -bar -range=% StrictQuote
-      \ call s:StrictQuote(<q-line1>, <q-line2>)
+      \ call mail#StrictQuote(<q-line1>, <q-line2>)
 nnoremap <LocalLeader>s
       \ :StrictQuote<CR>
 xnoremap <LocalLeader>s
diff --git a/vim/autoload/mail.vim b/vim/autoload/mail.vim
index 40b7fb7f..3fbba860 100644
--- a/vim/autoload/mail.vim
+++ b/vim/autoload/mail.vim
@@ -79,3 +79,26 @@ function! mail#NewBlank(count, up, visual) abort
   endif
 
 endfunction
+
+function! mail#StrictQuote(start, end) abort
+  let body = 0
+  for lnum in range(a:start, a:end)
+
+    " Get current line
+    let line = getline(lnum)
+
+    " Get the leading quote string, if any; skip if there isn't one
+    let quote = matchstr(line, '^>[> ]*')
+    if !strlen(quote)
+      continue
+    endif
+
+    " Normalise the quote with no spaces
+    let quote = substitute(quote, '[^>]', '', 'g')
+
+    " Re-set the line
+    let line = substitute(line, '^[> ]\+', quote, '')
+    call setline(lnum, line)
+
+  endfor
+endfunction
-- 
cgit v1.2.3