Commit 4ddf0e64 authored by Miles Bader's avatar Miles Bader
Browse files

Use (featurep 'xemacs) instead of the `gnus-xemacs' variable, as the

latter has been removed.
parent a66d76d2
......@@ -874,7 +874,7 @@ See the manual for details."
(defcustom gnus-treat-display-xface
(and (or (and (fboundp 'image-type-available-p)
(image-type-available-p 'xbm))
(and gnus-xemacs (featurep 'xface)))
(and (featurep 'xemacs) (featurep 'xface)))
'head)
"Display X-Face headers.
Valid values are nil, t, `head', `last', an integer or a predicate.
......@@ -883,7 +883,7 @@ See the manual for details."
:type gnus-article-treat-head-custom)
(put 'gnus-treat-display-xface 'highlight t)
(defcustom gnus-treat-display-smileys (if (and gnus-xemacs
(defcustom gnus-treat-display-smileys (if (and (featurep 'xemacs)
(featurep 'xpm))
t nil)
"Display smileys.
......@@ -893,7 +893,7 @@ See the manual for details."
:type gnus-article-treat-custom)
(put 'gnus-treat-display-smileys 'highlight t)
(defcustom gnus-treat-display-picons (if gnus-xemacs 'head nil)
(defcustom gnus-treat-display-picons (if (featurep 'xemacs) 'head nil)
"Display picons.
Valid values are nil, t, `head', `last', an integer or a predicate.
See the manual for details."
......@@ -3704,7 +3704,7 @@ Argument LINES specifies lines to be scrolled down."
(set-buffer gnus-article-current-summary)
(let (gnus-pick-mode)
(push (or key last-command-event) unread-command-events)
(setq keys (if gnus-xemacs
(setq keys (if (featurep 'xemacs)
(events-to-keys (read-key-sequence nil))
(read-key-sequence nil)))))
......
......@@ -97,7 +97,7 @@
(defun gnus-ems-redefine ()
(cond
(gnus-xemacs
((featurep 'xemacs)
(gnus-xmas-redefine))
((featurep 'mule)
......
......@@ -679,7 +679,7 @@ prompt the user for the name of an NNTP server to use."
(when gnus-simple-splash
(setq gnus-simple-splash nil)
(cond
(gnus-xemacs
((featurep 'xemacs)
(gnus-xmas-splash))
((and window-system
(= (frame-height) (1+ (window-height))))
......@@ -2628,7 +2628,7 @@ If FORCE is non-nil, the .newsrc file is read."
(let ((str (buffer-substring
(point) (progn (end-of-line) (point))))
(coding
(and (or gnus-xemacs
(and (or (featurep 'xemacs)
(and (boundp 'enable-multibyte-characters)
enable-multibyte-characters))
(fboundp 'gnus-mule-get-coding-system)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment