From 587aa1abee58445947664f7c03bef2a6c20b5426 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 23 Aug 1999 11:52:13 +0000 Subject: [PATCH] (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'. --- lisp/gnus-ems.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 1.7.10.4