]> git.madduck.net Git - etc/vim.git/blobdiff - .vim/after/ftplugin/mail.vim

madduck's git repository

Every one of the projects in this repository is available at the canonical URL git://git.madduck.net/madduck/pub/<projectpath> — see each project's metadata for the exact URL.

All patches and comments are welcome. Please squash your changes to logical commits before using git-format-patch and git-send-email to patches@git.madduck.net. If you'd read over the Git project's submission guidelines and adhered to them, I'd be especially grateful.

SSH access, as well as push access can be individually arranged.

If you use my repositories frequently, consider adding the following snippet to ~/.gitconfig and using the third clone URL listed for each project:

[url "git://git.madduck.net/madduck/"]
  insteadOf = madduck:

projects / etc / vim.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
Merge commit '882d8795c6ff65c02f2657e596391748d1b6b7f5'
[etc/vim.git] / .vim / after / ftplugin / mail.vim
diff --git a/.vim/after/ftplugin/mail.vim b/.vim/after/ftplugin/mail.vim
index 16157a96d702ea826685f2001924c68dc5b583b7..a2f6f1dfc55bb52d6b9a0d5cde1bb1218af66411 100644 (file)
--- a/.vim/after/ftplugin/mail.vim
+++ b/.vim/after/ftplugin/mail.vim
@@ -1,33 +1,33 @@
 setlocal textwidth=68
 setlocal formatoptions-=o
 setlocal formatoptions-=r
 setlocal textwidth=68
 setlocal formatoptions-=o
 setlocal formatoptions-=r
+setlocal formatoptions-=l
+setlocal formatoptions+=a
+setlocal formatoptions+=w
+setlocal formatoptions+=n
 
 
-" for format_flowed
-"setlocal formatoptions+=aw
-"setlocal nolist
-"augroup listinsert
-"  autocmd!
-"augroup end
-"augroup tsperrorinsert
-"  autocmd!
-"augroup end
+setlocal comments=n:>
 
 "setlocal spell
 
 
 "setlocal spell
 
+augroup tsperrorinsert
+  au!
+augroup END
+match none /\s*$/
+augroup listinsert
+  au!
+augroup END
+setlocal list
+
 " Dynamically set format options, depending on where you are in a
 " mail, idea from Teemu Likonen:
 " http://groups.google.com/group/vim_use/msg/f59e5c1adc6be2b3
 
 " Dynamically set format options, depending on where you are in a
 " mail, idea from Teemu Likonen:
 " http://groups.google.com/group/vim_use/msg/f59e5c1adc6be2b3
 
-let d_fo = &fo
-let s:defaults = 'setlocal tw=68 ts=2 sts=2 sw=2 fo='.d_fo
+let s:defaults = "setlocal fo=".&fo
+" tw=".&tw." ts=".&ts." sts=".&sts." sw=".&sw." fo=".&fo
 execute s:defaults
 let b:MailAreaDetect=1
 
 execute s:defaults
 let b:MailAreaDetect=1
 
-"nnoremap <buffer> <LocalLeader>ma1 :call <SID>MailAreaDetect_On()
-"    \ <bar> echo 'MailAreaDetect On'<CR>
-"nnoremap <buffer> <LocalLeader>ma0 :call <SID>MailAreaDetect_Off()
-"    \ <bar> echo 'MailAreaDetect Off'<CR>
-
 nnoremap <buffer><silent> <F9> :call <SID>MailAreaDetect_Switch(0)<CR>
 inoremap <buffer><silent> <F9> <C-\><C-O>:call <SID>MailAreaDetect_Switch(1)<CR>
 
 nnoremap <buffer><silent> <F9> :call <SID>MailAreaDetect_Switch(0)<CR>
 inoremap <buffer><silent> <F9> <C-\><C-O>:call <SID>MailAreaDetect_Switch(1)<CR>
 
@@ -49,7 +49,6 @@ function! s:MailAreaDetect_Switch(vmode)
     endif
 endfu
 
     endif
 endfu
 
-
 function! s:MailAreaDetect_On()
     silent autocmd! MailAreaDetect CursorMoved,CursorMoved
         \ <buffer> call <SID>AreaOptions()
 function! s:MailAreaDetect_On()
     silent autocmd! MailAreaDetect CursorMoved,CursorMoved
         \ <buffer> call <SID>AreaOptions()
@@ -69,21 +68,35 @@ augroup END
 
 function! s:AreaOptions()
     execute s:defaults
 
 function! s:AreaOptions()
     execute s:defaults
-    if <SID>CheckArea('\v^From( |: ).*\n','\v^$')
-        "echo 'Header'
-        setlocal fo-=a fo-=w fo-=t sts=0 sw=2 noet
-    elseif getline('.') =~ '\m^\s*>'
-        "echo 'Quotation'
-        setlocal fo-=a fo-=w
+
+    let s:synCur = synIDattr(synID(line("."),1,0),"name")
+    let s:synNext = synIDattr(synID(line(".")+1,1,0),"name")
+
+    if s:synNext =~ '^mailQuote' && s:synCur == '' && getline('.') =~ '^.'
+      " elseif getline('.') =~ '^\s*[^>]' && getline(line('.')+1) =~ '\m^\s*>'
+      setlocal fo-=a
+      "echo 'Quotation leader (fo='.&fo.')'
+    elseif s:synCur =~ '^mailQuote'
+      " elseif getline('.') =~ '\m^\s*>'
+      setlocal fo-=a
+      "echo 'Quotation (fo='.&fo.')'
     elseif <SID>CheckArea('\m^--- .*\n^+++ ','\v(^$|\n^-- $)')
     elseif <SID>CheckArea('\m^--- .*\n^+++ ','\v(^$|\n^-- $)')
-        "echo 'Patch'
-        setlocal fo-=a fo-=w fo-=t sts=0 sw=2 noet
-    elseif <SID>CheckArea('^-- $','^$')
-        "echo 'Signature'
-        setlocal fo-=a fo-=w fo-=t sts=0 sw=2 noet
+      setlocal fo-=a fo-=w fo-=t noet
+      "echo 'Patch (fo='.&fo.')'
+    elseif s:synCur == '' && s:synNext =~ '^mailSignature'
+      " elseif getline(line('.')+1) =~ '\m^-- $'
+      setlocal fo-=a fo-=w fo-=t
+      "echo 'Last line before signature (fo='.&fo.')'
+    elseif s:synCur =~ '^mailSignature'
+      " elseif <SID>CheckArea('^-- $','^$')
+      setlocal fo-=a fo-=w fo-=t
+      "echo 'Signature (fo='.&fo.')'
+    elseif s:synCur =~ '^mail'
+      " if <SID>CheckArea('\v^From( |: ).*\n','\v^$')
+      setlocal fo-=a fo-=w fo-=t
+      "echo 'Header (fo='.&fo.')'
     else
     else
-        "echo 'My text'
-        setlocal fo+=aw et
+      "echo 'My text (fo='.&fo.')'
     endif
 endfunction
 
     endif
 endfunction
 
@@ -92,25 +105,39 @@ function! s:CheckArea(start, end)
         \ (search(a:end,'bnW')-line('.'))
 endfunction
 
         \ (search(a:end,'bnW')-line('.'))
 endfunction
 
-augroup tsperrorinsert
-  au!
-augroup END
-match none /\s\+$/
-augroup listinsert
+function! FixQuotes()
+  let l:i = 0
+  let l:lineNxt = getline(l:i)
+  let l:synNxt = synIDattr(synID(l:i,1,0),"name")
+  while l:i < line('$')-1
+    let l:lineCur = l:lineNxt
+    let l:synCur = l:synNxt
+    let l:lineNxt = getline(l:i+1)
+    let l:synNxt = synIDattr(synID(l:i+1,1,0),"name")
+    if l:synCur =~ '^mailQuote' && l:lineCur =~ '\w.*\S$' &&
+          \ l:synNxt =~ '^mailQuote' && l:lineNxt =~ '\w'
+      call setline(l:i, l:lineCur . ' ')
+    endif
+    let l:i += 1
+  endwhile
+endfunction
+
+augroup fixquotes
   au!
   au!
+  autocmd BufWinEnter $TMPDIR/mutt-* call FixQuotes()
 augroup END
 augroup END
-set nolist
 
 nmap <buffer> <C-P><F1> :w<CR>:%!mailplate --keep-unknown official<CR>
 
 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 pmvm<CR>
-nmap <buffer> <C-P><F4> :w<CR>:%!mailplate --keep-unknown pobox<CR>
-nmap <buffer> <C-P><F5> :w<CR>:%!mailplate --keep-unknown debian<CR>
-nmap <buffer> <C-P><F6> :w<CR>:%!mailplate --keep-unknown debconf<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><F12> :w<CR>:%!mailplate --keep-unknown private<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><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>
 
 " change subject line
 nmap <buffer> <F1> :w<CR>:%!mailplate --auto --keep-unknown 2>/dev/null<CR>
 
 " change subject line
@@ -168,3 +195,19 @@ fun! DelegateCompletion(next)
     return "\x10"
   endif
 endfun
     return "\x10"
   endif
 endfun
+
+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
vim configuration

Legalese

All content available in this repository is copyright © martin f. krafft, unless otherwise noted.

All files and their content are released under the terms of the Artistic Licence 2.0, unless otherwise noted.

The operator of this repository shall not be held liable for offending content in pages linking to or linked from these page, nor does he endorse their content unless stated otherwise.