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

	* gnus-ems.el: Remove gnus-xemacs.  Autoload smiley.
	(gnus-kill-all-overlays): Move here.

diff -r 17d5f3547c87 -r 5b203c66fa7b lisp/gnus/gnus-ems.el
--- a/lisp/gnus/gnus-ems.el	Thu Oct 26 17:14:08 2000 +0000
+++ b/lisp/gnus/gnus-ems.el	Thu Oct 26 17:36:05 2000 +0000
@@ -26,22 +26,16 @@
 
 ;;; Code:
 
-(eval-when-compile
-  (require 'cl)
-  (require 'ring))
+(eval-when-compile (require 'cl))
 
 ;;; Function aliases later to be redefined for XEmacs usage.
 
-(eval-and-compile
-  (defvar gnus-xemacs (featurep 'xemacs)
-    "Non-nil if running under XEmacs."))
-
 (defvar gnus-mouse-2 [mouse-2])
 (defvar gnus-down-mouse-3 [down-mouse-3])
 (defvar gnus-down-mouse-2 [down-mouse-2])
 (defvar gnus-widget-button-keymap nil)
 (defvar gnus-mode-line-modified
-  (if (or gnus-xemacs
+  (if (or (featurep 'xemacs)
 	  (< emacs-major-version 20))
       '("--**-" . "-----")
     '("**" "--")))
@@ -51,7 +45,18 @@
   (autoload 'gnus-xmas-redefine "gnus-xmas")
   (autoload 'appt-select-lowest-window "appt"))
 
-(autoload 'gnus-smiley-display "smiley-ems") ; override XEmacs version
+(if (featurep 'xemacs)
+    (autoload 'gnus-smiley-display "smiley")
+  (autoload 'gnus-smiley-display "smiley-ems") ; override XEmacs version
+)
+
+(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)))))
 
 ;;; Mule functions.
 
@@ -64,7 +69,7 @@
        valstr)))
 
 (eval-and-compile
-  (if gnus-xemacs
+  (if (featurep 'xemacs)
       (gnus-xmas-define)
     (defvar gnus-mouse-face-prop 'mouse-face
       "Property used for highlighting mouse regions.")))