Function: message-remove-blank-cited-lines

message-remove-blank-cited-lines is an interactive and byte-compiled function defined in message.el.gz.

Signature

(message-remove-blank-cited-lines &optional REMOVE)

Documentation

Remove cited lines containing only blanks.

If REMOVE is non-nil, remove newlines, too.

To use this automatically, you may add this function to gnus-message-setup-hook.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-remove-blank-cited-lines (&optional remove)
  "Remove cited lines containing only blanks.
If REMOVE is non-nil, remove newlines, too.

To use this automatically, you may add this function to
`gnus-message-setup-hook'."
  (interactive "P" message-mode)
  (let ((citexp (concat "^\\("
			(concat message-yank-cited-prefix "\\|")
			message-yank-prefix
			"\\)+ *\n")))
    (message "Removing `%s'" citexp)
    (save-excursion
      (message-goto-body)
      (while (re-search-forward citexp nil t)
	(replace-match (if remove "" "\n"))))))