|function! Erase_Sig()
| " Search for the signature pattern : "^> -- $"
| let i = line ('$')
| let found = 0
| while i >= 1
| if getline(i) =~ "^> *-- $"
| let found = 1
| break
| endif
| let i = i - 1
| endwhile
| " If found, then
| if found == 1
| " First, search for the last non empty (non sig) line
| while i >= 1
| let i = i - 1
| " rem : i can't value 1
| if getline(i) !~ '^\(>\s*\)*$'
| break
| endif
| endwhile
| " Second, delete these lines plus the signature
| let i = i + 1
| exe 'normal '.i.'GdG'
| endif
|endfunction