Function: sc-no-blank-line-or-header

sc-no-blank-line-or-header is a byte-compiled function defined in supercite.el.gz.

Signature

(sc-no-blank-line-or-header)

Documentation

Similar to sc-no-header except it removes the preceding blank line.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/supercite.el.gz
(defun sc-no-blank-line-or-header ()
  "Similar to `sc-no-header' except it removes the preceding blank line."
  (and (not (bobp))
       (eolp)
       (progn (forward-line -1)
	      (or (= (point)
		     (save-excursion
		       (rfc822-goto-eoh)
		       (line-beginning-position 2)))
		  (and (eq major-mode 'mh-letter-mode)
		       (mh-in-header-p))))
       (progn
	 (forward-line)
	 (kill-line))))