home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34src.zip / me3 / mutt / misc / misc.mut < prev    next >
Text File  |  1995-01-14  |  312b  |  17 lines
  1.   ;; C Durland    Public Domain
  2.  
  3. (defun
  4.   delete-lines-with-re
  5.   {
  6.     (int n)
  7.     (string re)
  8.  
  9.     (re (ask "Delete all lines containing reg-exp: "))
  10.     (beginning-of-buffer)
  11.     (n 0)
  12.     (while (re-search-forward re)
  13.     { (+= n 1)(beginning-of-line)(arg-prefix 1)(cut-line) })
  14.     (msg n " lines deleted.")
  15.   }
  16. )
  17.