From: yamaoka <yamaoka>
Date: Mon, 23 Aug 1999 11:52:13 +0000 (+0000)
Subject: (gnus-x-splash): Change the foreground color of `gnus-splash' to "Brown";
X-Git-Tag: t-gnus-6_12_0-02~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=587aa1abee58445947664f7c03bef2a6c20b5426;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 65eca97..89b714c 100644
--- a/lisp/gnus-ems.el
+++ b/lisp/gnus-ems.el
@@ -294,8 +294,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))))))
@@ -304,7 +304,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)