diff options
| -rw-r--r-- | lisp/init-mail.el | 27 |
1 files changed, 0 insertions, 27 deletions
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 |