(gnus-x-splash): Change the foreground color of `gnus-splash' to "Brown";
authoryamaoka <yamaoka>
Mon, 23 Aug 1999 11:52:13 +0000 (11:52 +0000)
committeryamaoka <yamaoka>
Mon, 23 Aug 1999 11:52:13 +0000 (11:52 +0000)
use `with-temp-buffer' instead of `with-temp-file';
use `insert-file-contents-as-binary' instead of `insert-file-contents'.

lisp/gnus-ems.el

index 65eca97..89b714c 100644 (file)
        (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))))))
            (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)