You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
101 lines
2.6 KiB
101 lines
2.6 KiB
" Include all in mail |
|
source ~/.vim/mail.vim |
|
|
|
" Error message handling |
|
set shortmess=s " less messages |
|
set cmdheight=2 |
|
|
|
" Jump to To:, Cc:, Subject: |
|
nmap <M-t> 2GA |
|
map! <M-t> <ESC>2GA |
|
nmap <M-c> 3GA |
|
map! <M-c> <ESC>3GA |
|
nmap <M-s> 4GA |
|
map! <M-s> <ESC>4GA |
|
|
|
" Go to first empty line and start insert mode |
|
execute "normal /^$/\n" |
|
execute ":startinsert" |
|
|
|
" add two empty lines after header (where we jumped to) |
|
execute "call append(line('.')-1, '')" |
|
execute "call append(line('.')-1, '')" |
|
|
|
" Email auto completion for headers |
|
let g:qcc_query_command='khard email --parsable --remove-first-line --search-in-source-files' |
|
setlocal omnifunc=QueryCommandComplete |
|
|
|
" Functions |
|
|
|
" Set tw to 5000 if in the first 4 lines, else 72 |
|
au CursorMovedI * call ModifyTextWidth() " execute when cursor has moved, use for all files |
|
function! ModifyTextWidth() |
|
let line=getline('.') " get the current line number of the cursor |
|
if line('.') < 5 " if line number smaller than 5 |
|
setlocal textwidth=5000 " use high tw setting |
|
else |
|
setlocal textwidth=72 " Otherwise use normal textwidth |
|
endif |
|
endfunction |
|
|
|
function! Mail_Erase_Sig() |
|
" search for the signature pattern (takes into account signature delimiters |
|
" from broken mailers that forget the space after the two dashes) |
|
let i = 0 |
|
while ((i <= line('$')) && (getline(i) !~ '^> *-- \=$')) |
|
let i = i + 1 |
|
endwhile |
|
|
|
" if found, then |
|
if (i != line('$') + 1) |
|
" first, look for our own signature, to avoid deleting it |
|
let j = i |
|
while (j < line('$') && (getline(j + 1) !~ '^-- $')) |
|
let j = j + 1 |
|
endwhile |
|
|
|
" second, search for the last non empty (non sig) line |
|
while ((i > 0) && (getline(i - 1) =~ '^\(>\s*\)*$')) |
|
let i = i - 1 |
|
endwhile |
|
|
|
" third, delete those lines plus the signature |
|
exe ':'.i.','.j.'d' |
|
endif |
|
endfunction |
|
|
|
function! Mail_Erase_Own_Sig() |
|
let i = 0 |
|
while ((i <= line('$')) && (getline(i) !~ '^-- \=$')) |
|
let i = i + 1 |
|
endwhile |
|
|
|
" if found, then |
|
if (i != line('$') + 1) |
|
" first, look for our own signature, to avoid deleting it |
|
let j = i |
|
while (j < line('$') && (getline(j + 1) !~ '^-- $')) |
|
let j = j + 1 |
|
endwhile |
|
|
|
" second, search for the last non empty (non sig) line |
|
while ((i > 0) && (getline(i - 1) =~ '^\(>\s*\)*$')) |
|
let i = i - 1 |
|
endwhile |
|
|
|
" third, delete those lines plus the signature |
|
exe ':'.i.','.j.'d' |
|
endif |
|
endfunction |
|
|
|
function! Mail_Beginning() |
|
exe "normal gg" |
|
if getline (line ('.')) =~ '^From: ' |
|
" if we use edit_headers in Mutt, then go after the headers |
|
exe "normal /^$\<CR>" |
|
endif |
|
endfunction |
|
|
|
call Mail_Erase_Own_Sig() |
|
call Mail_Erase_Sig() |
|
call Mail_Beginning()
|
|
|