Function: article-remove-trailing-blank-lines

article-remove-trailing-blank-lines is an interactive and byte-compiled function defined in gnus-art.el.gz.

Signature

(article-remove-trailing-blank-lines)

Documentation

Remove all trailing blank lines from the article.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun article-remove-trailing-blank-lines ()
  "Remove all trailing blank lines from the article."
  (interactive nil gnus-article-mode)
  (save-excursion
    (let ((inhibit-read-only t))
      (goto-char (point-max))
      (delete-region
       (point)
       (progn
	 (while (and (not (bobp))
		     (looking-at "^[ \t]*$")
		     (not (gnus-annotation-in-region-p
			   (point) (point-at-eol))))
	   (forward-line -1))
	 (forward-line 1)
	 (point))))))