From 9f81caf0c21b471f788fcf6941eae769cd989e06 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 2 Oct 2002 23:24:08 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 6 ++++++ lisp/gnus-ems.el | 12 +++++++----- 2 files changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 984afef..920a363 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 b06a122..85f0b8d 100644 --- a/lisp/gnus-ems.el +++ b/lisp/gnus-ems.el @@ -183,11 +183,13 @@ (when (and dir (file-exists-p (setq file (expand-file-name "x-splash" dir)))) - (with-temp-buffer - (insert-file-contents-as-binary 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-as-binary 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)) -- 1.7.10.4