diff options
| -rw-r--r-- | lisp/init-gnus.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index e2156d7..d578116 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -177,19 +177,19 @@ A new buffer with the patch contents is opened in another window." ;; Modified from ;; http://emacs-fu.blogspot.com/2008/12/some-simple-tricks-boxquote-footnote.html. -(defun km/snip-mail-quote (beg end &optional no-number quote-char) +(defun km/snip-mail-quote (beg end &optional number quote-char) "Replace region lines with \"[n lines ...]\". -If NO-NUMBER is non-nil (or when called interactively with a -prefix argument), the number of lines is not added. The default +If NUMBER is non-nil (or when called interactively with a prefix +argument), add the number of lines that were snipped. The default QUOTE-CHAR is \">\". Text following the snipped lines is placed on a new line and the resulting paragraph is filled." (interactive "r\nP") (let ((nlines (count-lines beg end)) (quote-char (or quote-char ">"))) (delete-region beg end) - (if no-number - (insert (format "[...]")) - (insert (format "[%d line%s ...]" nlines (if (= 1 nlines) "" "s")))) + (if number + (insert (format "[%d line%s ...]" nlines (if (= 1 nlines) "" "s"))) + (insert (format "[...]"))) (search-backward "[") (unless (bolp) (newline)) |