diff options
| -rw-r--r-- | lisp/gnus/gnus-ems.el | 12 |
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 @@ | |||
| 49 | (autoload 'gnus-xmas-redefine "gnus-xmas") | 49 | (autoload 'gnus-xmas-redefine "gnus-xmas") |
| 50 | (autoload 'appt-select-lowest-window "appt")) | 50 | (autoload 'appt-select-lowest-window "appt")) |
| 51 | 51 | ||
| 52 | (autoload 'gnus-smiley-display "smiley-ems") ; override XEmacs version | ||
| 53 | |||
| 52 | ;;; Mule functions. | 54 | ;;; Mule functions. |
| 53 | 55 | ||
| 54 | (defun gnus-mule-max-width-function (el max-width) | 56 | (defun gnus-mule-max-width-function (el max-width) |
| @@ -66,16 +68,6 @@ | |||
| 66 | "Property used for highlighting mouse regions."))) | 68 | "Property used for highlighting mouse regions."))) |
| 67 | 69 | ||
| 68 | (eval-and-compile | 70 | (eval-and-compile |
| 69 | (cond | ||
| 70 | ((not window-system) | ||
| 71 | (let ((funcs '(mouse-set-point set-face-foreground | ||
| 72 | set-face-background x-popup-menu))) | ||
| 73 | (while funcs | ||
| 74 | (unless (fboundp (car funcs)) | ||
| 75 | (defalias (car funcs) 'ignore)) | ||
| 76 | (setq funcs (cdr funcs))))))) | ||
| 77 | |||
| 78 | (eval-and-compile | ||
| 79 | (let ((case-fold-search t)) | 71 | (let ((case-fold-search t)) |
| 80 | (cond | 72 | (cond |
| 81 | ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32" | 73 | ((string-match "windows-nt\\|os/2\\|emx\\|cygwin32" |