From: yamaoka <yamaoka>
Date: Fri, 18 Aug 2000 00:59:04 +0000 (+0000)
Subject: (gnus-group-icon-create-glyph): Don't use `gnus-group-running-xemacs'.
X-Git-Tag: t-gnus-6_14-quimby-before-installer-changed-~140
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7f69dabc03ff22d2382fea3beda6991063830ce1;p=elisp%2Fgnus.git-

(gnus-group-icon-create-glyph): Don't use `gnus-group-running-xemacs'.
;; A patch for Gnus has been sent to bugs@gnus.org.
---

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 0e79431..d2cab8e 100644
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -947,21 +947,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)