From: Lars Magne Ingebrigtsen Date: Mon, 30 Aug 2010 21:10:06 +0000 (+0200) Subject: Put the xpm version of the logo at the top so that the proper colours are applied. X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=9ca005983d3a3ec7bcb88d1adba2fc6892612cfe;hp=d156adc47e917f9628aaf4754f8bb6c80f1e9ff2 Put the xpm version of the logo at the top so that the proper colours are applied. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6ca9328b2..c85ae2e7a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-08-30 Lars Magne Ingebrigtsen + * gnus.el (gnus-group-startup-message): Put the xpm version of the logo + at the top so that the proper colours are applied. + * gnus-xmas.el (gnus-xmas-create-image): Make this work on files that don't have dots in their names. diff --git a/lisp/gnus.el b/lisp/gnus.el index ed9007332..ce37565ad 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1057,14 +1057,14 @@ be set in `.emacs' instead." (symbol-value 'image-load-path)) (t load-path))) (image (find-image - `((:type svg :file "gnus.svg") - (:type png :file "gnus.png") - (:type xpm :file "gnus.xpm" + `((:type xpm :file "gnus.xpm" :color-symbols (("thing" . ,(car gnus-logo-colors)) ("shadow" . ,(cadr gnus-logo-colors)) ("oort" . "#eeeeee") ("background" . ,(face-background 'default)))) + (:type svg :file "gnus.svg") + (:type png :file "gnus.png") (:type pbm :file "gnus.pbm" ;; Account for the pbm's blackground. :background ,(face-foreground 'gnus-splash)