From: yamaoka <yamaoka>
Date: Mon, 23 Aug 1999 11:57:37 +0000 (+0000)
Subject: (gnus-x-splash): Change the foreground color of `gnus-splash' to "Brown";
X-Git-Tag: t-gnus-6_13_0-10~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=649fa7dfe7162b0c5b20db66246c28ae80e36775;p=elisp%2Fgnus.git-

(gnus-x-splash): Change the foreground color of `gnus-splash' to "Brown";
use `with-temp-buffer' instead of `with-temp-file';
use `insert-file-contents-as-binary' instead of `insert-file-contents'.
---

diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el
index 8a8c1b1..8983da6 100644
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -273,8 +273,8 @@
 	(erase-buffer)
 	(when (and dir
 		   (file-exists-p (setq file (concat dir "x-splash"))))
-	  (with-temp-file nil
-	    (insert-file-contents file)
+	  (with-temp-buffer
+	    (insert-file-contents-as-binary file)
 	    (goto-char (point-min))
 	    (ignore-errors
 	      (setq pixmap (read (current-buffer))))))
@@ -283,7 +283,7 @@
 	    (make-face 'gnus-splash))
 	  (setq height (/ (car pixmap) (frame-char-height))
 		width (/ (cadr pixmap) (frame-char-width)))
-	  (set-face-foreground 'gnus-splash "ForestGreen")
+	  (set-face-foreground 'gnus-splash "Brown")
 	  (set-face-stipple 'gnus-splash pixmap)
 	  (insert-char ?\n (* (/ (window-height) 2 height) height))
 	  (setq i height)