+(defun ff/kill-to-signature () (interactive)
+ (save-excursion
+ (delete-region
+ (point)
+ (progn
+ (search-forward-regexp "^-- *$")
+ (- (match-beginning 0) 1))
+ )
+ )
+ )
+
+(define-key vm-mail-mode-map [(control c) (k)] 'ff/kill-to-signature)
+