From 477c7381ba6ab5a854687fdebad012be6df8531e Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 3 Oct 2002 00:09:11 +0000 Subject: [PATCH] (gnus-x-splash): Set coding-system-for-read to raw-text. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-ems.el | 12 +++++++----- 2 files changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 984afef08..920a36306 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2002-10-02 Katsumi Yamaoka + From Peter von der Ahe . + + * gnus-ems.el (gnus-x-splash): Set coding-system-for-read to + raw-text. + 2002-09-30 Ted Zlatanov * spam.el: merged changes from pinard@iro.umontreal.ca (François Pinard). diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el index 70be62e71..fb4107e65 100644 --- a/lisp/gnus-ems.el +++ b/lisp/gnus-ems.el @@ -170,11 +170,13 @@ (when (and dir (file-exists-p (setq file (expand-file-name "x-splash" dir)))) - (with-temp-buffer - (insert-file-contents file) - (goto-char (point-min)) - (ignore-errors - (setq pixmap (read (current-buffer)))))) + (let ((coding-system-for-read 'raw-text) + default-enable-multibyte-characters) + (with-temp-buffer + (insert-file-contents file) + (goto-char (point-min)) + (ignore-errors + (setq pixmap (read (current-buffer))))))) (when pixmap (make-face 'gnus-splash) (setq height (/ (car pixmap) (frame-char-height)) -- 2.25.1