(defun fill-all-paragraphs ()
    (interactive)
    (beginning-of-buffer)
    (while (not (eobp))
        (end-of-line)
	(if (> (current-column) fill-column)
	    (fill-paragraph nil)
	)
	(next-line 1)
	(beginning-of-line)
    )
)