From: Dave Love <fx@gnu.org>
Date: Fri, 18 Aug 2000 14:52:54 +0000 (+0000)
Subject: (gnus-group-icon-create-glyph): Don't test
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=e136b1b6599b1cfaac19a2336b32c70e73bd7057;p=gnus

(gnus-group-icon-create-glyph): Don't test
gnus-group-running-xemacs.
---

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 917237154..a4c5a4bdc 100644
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -850,21 +850,19 @@ XEmacs compatibility workaround."
 
 (defun gnus-group-icon-create-glyph (substring pixmap)
   "Create a glyph for insertion into a group line."
-  (and
-   gnus-group-running-xemacs
-   (or
-    (cdr-safe (assoc pixmap gnus-group-icon-cache))
-    (let* ((glyph (make-glyph
-		   (list
-		    (cons 'x
-			  (expand-file-name pixmap gnus-xmas-glyph-directory))
-		    (cons 'mswindows
-			  (expand-file-name pixmap gnus-xmas-glyph-directory))
-		    (cons 'tty substring)))))
-      (setq gnus-group-icon-cache
-	    (cons (cons pixmap glyph) gnus-group-icon-cache))
-      (set-glyph-face glyph 'default)
-      glyph))))
+  (or
+   (cdr-safe (assoc pixmap gnus-group-icon-cache))
+   (let* ((glyph (make-glyph
+		  (list
+		   (cons 'x
+			 (expand-file-name pixmap gnus-xmas-glyph-directory))
+		   (cons 'mswindows
+			 (expand-file-name pixmap gnus-xmas-glyph-directory))
+		   (cons 'tty substring)))))
+     (setq gnus-group-icon-cache
+	   (cons (cons pixmap glyph) gnus-group-icon-cache))
+     (set-glyph-face glyph 'default)
+     glyph)))
 
 (provide 'gnus-xmas)