Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 984afef..920a363 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-10-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+       From Peter von der Ahe <nospam2159@daimi.au.dk>.
+
+       * gnus-ems.el (gnus-x-splash): Set coding-system-for-read to
+       raw-text.
+
 2002-09-30  Ted Zlatanov <tzz@lifelogs.com>
 
        * 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 (file)
--- 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))