Help for this page
(defun fix-lf () (interactive) ... (goto-char (point-min)) (while (re-search-forward "\x0d" nil t) (replace-match "\x0a" t t))))