From: Katsumi Yamaoka Date: Tue, 31 Aug 2010 00:19:31 +0000 (+0000) Subject: Put the xpm version of the logo at the top so that the proper colours are applied... X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~192 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5a2756c8cace5f30958ca9e1cb3f5421442fef5f;p=emacs.git Put the xpm version of the logo at the top so that the proper colours are applied; by Lars Magne Ingebrigtsen . --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2791baa44e4..0d3d0446c86 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/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-art.el (gnus-article-view-part): Doc fix. * gnus-html.el (gnus-html-put-image): Use gnus-create-image to be diff --git a/lisp/gnus/gnus.el b/lisp/gnus/gnus.el index 864c7cadf7d..0f8111c32ba 100644 --- a/lisp/gnus/gnus.el +++ b/lisp/gnus/gnus.el @@ -1058,14 +1058,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)