X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fgnus-util.el;h=47c130291374f144bfdc0e60ec691b530e92f10a;hb=8ea1f15fd54f5a6b6bc71dd0b6c155ab77f474c1;hp=72e4d031e1c886527ed9d4e4d10087fd4cf5876d;hpb=cf677b40c298994ba369b9f4e7800570fd681a9d;p=gnus

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 72e4d031e..47c130291 100644
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -451,14 +451,6 @@ If N, return the Nth ancestor instead."
 		     (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 ()
@@ -982,6 +974,22 @@ Entries without port tokens default to DEFAULTPORT."
       (while (search-backward "\\." nil t)
 	(delete-char 1)))))
 
+(if (fboundp 'union)
+    (defalias 'gnus-union 'union)
+  (defun gnus-union (l1 l2)
+    "Set union of lists L1 and L2."
+    (cond ((null l1) l2)
+	  ((null l2) l1)
+	  ((equal l1 l2) l1)
+	  (t
+	   (or (>= (length l1) (length l2))
+	       (setq l1 (prog1 l2 (setq l2 l1))))
+	   (while l2
+	     (or (member (car l2) l1)
+		 (push (car l2) l1))
+	     (pop l2))
+	   l1))))
+
 (provide 'gnus-util)
 
 ;;; gnus-util.el ends here