From 7f69dabc03ff22d2382fea3beda6991063830ce1 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 18 Aug 2000 00:59:04 +0000 Subject: [PATCH] (gnus-group-icon-create-glyph): Don't use `gnus-group-running-xemacs'. ;; A patch for Gnus has been sent to bugs@gnus.org. --- lisp/gnus-xmas.el | 28 +++++++++++++--------------- 1 file changed, 13 insertions(+), 15 deletions(-) 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) -- 1.7.10.4