(defun fix-lf ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "\x0d\x0a" nil t)
      (replace-match "\x0a" t t))
    (goto-char (point-min))
    (while (re-search-forward "\x0d" nil t)
      (replace-match "\x0a" t t))))