use `with-temp-buffer' instead of `with-temp-file';
use `insert-file-contents-as-binary' instead of `insert-file-contents'.
(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)