Path: utzoo!mnetor!uunet!husc6!mailrus!nrl-cmf!ames!pasteur!ucbvax!ANDREW.CMU.EDU!jk3k+
From: jk3k+@ANDREW.CMU.EDU (Joe Keane)
Newsgroups: comp.emacs
Subject: Re: A regexp for blank lines
Message-ID: <EWBMl1y00Xo8Q4x8Bu@andrew.cmu.edu>
Date: 9 Mar 88 18:17:37 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 10


How about the function delete-matching-lines?  Or since that works only on 
lines after point, you might want:
(defun delete-all-matching-lines regexp
  (interactive "sFlush all lines matching regexp: ")
  (save-excursion
    (goto-char (point-min))
    (delete-matching-lines regexp)))

--Joe