Function: sc-mail-cleanup-blank-lines

sc-mail-cleanup-blank-lines is a byte-compiled function defined in supercite.el.gz.

Signature

(sc-mail-cleanup-blank-lines)

Documentation

Leave some blank lines after original mail headers are nuked.

The number of lines left is specified by sc-blank-lines-after-headers.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/supercite.el.gz
(defun sc-mail-cleanup-blank-lines ()
  "Leave some blank lines after original mail headers are nuked.
The number of lines left is specified by `sc-blank-lines-after-headers'."
  (if sc-blank-lines-after-headers
      (save-restriction
	(widen)
	(skip-chars-backward " \t\n")
	(forward-line 1)
	(delete-blank-lines)
	(beginning-of-line)
	(if (looking-at "[ \t]*$")
	    (delete-region (line-beginning-position)
			   (line-beginning-position 2)))
	(insert-char ?\n sc-blank-lines-after-headers)))
  nil)