Mercurial > emacs
changeset 110048:9b06d2d2e191
Put the xpm version of the logo at the top so that the proper colours are applied; by Lars Magne Ingebrigtsen <larsi@gnus.org>.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Tue, 31 Aug 2010 00:19:31 +0000 |
| parents | ac27b3fd8285 |
| children | 00d3a187d587 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus.el |
| diffstat | 2 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue Aug 31 00:15:33 2010 +0000 +++ b/lisp/gnus/ChangeLog Tue Aug 31 00:19:31 2010 +0000 @@ -1,5 +1,8 @@ 2010-08-30 Lars Magne Ingebrigtsen <larsi@gnus.org> + * 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
--- a/lisp/gnus/gnus.el Tue Aug 31 00:15:33 2010 +0000 +++ b/lisp/gnus/gnus.el Tue Aug 31 00:19:31 2010 +0000 @@ -1058,14 +1058,14 @@ (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)