# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 972582069 0
# Node ID 86023b6d3cad9f92ebb63af1d123f8ca198482a8
# Parent  5b203c66fa7b55bc08690df0787f49dab76f9b80
2000-10-08 10:59:13  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* gnus-util.el (gnus-kill-all-overlays): Move out.

diff -r 5b203c66fa7b -r 86023b6d3cad lisp/gnus/gnus-util.el
--- a/lisp/gnus/gnus-util.el	Thu Oct 26 17:36:05 2000 +0000
+++ b/lisp/gnus/gnus-util.el	Thu Oct 26 17:41:09 2000 +0000
@@ -451,14 +451,6 @@
 		     (file-name-nondirectory file))))
   (copy-file file to))
 
-(defun gnus-kill-all-overlays ()
-  "Delete all overlays in the current buffer."
-  (let* ((overlayss (overlay-lists))
-	 (buffer-read-only nil)
-	 (overlays (delq nil (nconc (car overlayss) (cdr overlayss)))))
-    (while overlays
-      (delete-overlay (pop overlays)))))
-
 (defvar gnus-work-buffer " *gnus work*")
 
 (defun gnus-set-work-buffer ()