# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 969468163 0
# Node ID d2b5643aab1639f58be30ae813337ee6e6233235
# Parent  850819b4ec74afa29f01d5309becf7a5c926fe40
(gnus-smiley-display): Autoload from smiley-ems.
(mouse-set-point, set-face-foreground)
(set-face-background, x-popup-menu) [not window-system]: Don't zap
them.

diff -r 850819b4ec74 -r d2b5643aab16 lisp/gnus/gnus-ems.el
--- a/lisp/gnus/gnus-ems.el	Wed Sep 20 16:37:30 2000 +0000
+++ b/lisp/gnus/gnus-ems.el	Wed Sep 20 16:42:43 2000 +0000
@@ -49,6 +49,8 @@
   (autoload 'gnus-xmas-redefine "gnus-xmas")
   (autoload 'appt-select-lowest-window "appt"))
 
+(autoload 'gnus-smiley-display "smiley-ems") ; override XEmacs version
+
 ;;; Mule functions.
 
 (defun gnus-mule-max-width-function (el max-width)
@@ -66,16 +68,6 @@
       "Property used for highlighting mouse regions.")))
 
 (eval-and-compile
-  (cond
-   ((not window-system)
-    (let ((funcs '(mouse-set-point set-face-foreground
-				   set-face-background x-popup-menu)))
-      (while funcs
-	(unless (fboundp (car funcs))
-	  (defalias (car funcs) 'ignore))
-	(setq funcs (cdr funcs)))))))
-
-(eval-and-compile
   (let ((case-fold-search t))
     (cond
      ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32"