(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.

1 files changed, 2 insertions, 10 deletions

diff --git a/lisp/gnus/gnus-ems.el b/lisp/gnus/gnus-ems.el
index 59dd6ae5774..ef97fa4d68e 100644
--- a/lisp/gnus/gnus-ems.el
+++ b/lisp/gnus/gnus-ems.el
@@ -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"