Function: article-remove-cr

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

Signature

(article-remove-cr)

Documentation

Remove trailing CRs and then translate remaining CRs into LFs.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defun article-remove-cr ()
  "Remove trailing CRs and then translate remaining CRs into LFs."
  (interactive nil gnus-article-mode)
  (save-excursion
    (let ((inhibit-read-only t))
      (goto-char (point-min))
      (while (re-search-forward "\r+$" nil t)
	(replace-match "" t t))
      (goto-char (point-min))
      (while (search-forward "\r" nil t)
	(replace-match "\n" t t)))))