(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) ) )