From 3b3c84d783528eb926f2987b5a866ca55a7e3fff Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 3 Sep 2015 01:00:36 -0400 Subject: Remove snip-mail-quote command There is already a command message-elide-region. --- lisp/init-mail.el | 27 --------------------------- 1 file changed, 27 deletions(-) (limited to 'lisp') diff --git a/lisp/init-mail.el b/lisp/init-mail.el index 5bb4e54..bb16317 100644 --- a/lisp/init-mail.el +++ b/lisp/init-mail.el @@ -196,33 +196,6 @@ to group buffer instead of moving to next group." (message-field-value "From"))) (user-error "Not sending message"))) -;; Modified from -;; http://emacs-fu.blogspot.com/2008/12/some-simple-tricks-boxquote-footnote.html. -(defun km/snip-mail-quote (beg end &optional number quote-char) - "Replace region lines with \"[...]\". -If prefix argument NUMBER is non-nil, add the number of lines -that were snipped. The default QUOTE-CHAR is \">\". Place text -following the snipped lines on a new line, and file the resulting -paragraph." - (interactive "r\nP") - (let ((nlines (count-lines beg end)) - (quote-char (or quote-char ">"))) - (delete-region beg end) - (if number - (insert (format "[%d line%s ...]" nlines (if (= 1 nlines) "" "s"))) - (insert (format "[...]"))) - (search-backward "[") - (unless (bolp) - (newline)) - (search-forward "]") - (unless (eolp) - (newline) - (insert quote-char) - (just-one-space) - (fill-paragraph)))) - -(define-key message-mode-map (kbd "C-c m s") 'km/snip-mail-quote) - ;;; Notmuch -- cgit v1.2.3