summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/init-gnus.el12
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))