X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=inline;f=lisp%2Fnnrss.el;h=8f66d431ed899ec3f4a40352e54a8d0f374670be;hb=7486b12fa4e49b76d1dd7804fd43598c0267e2d1;hp=fd9ea8ab06290ff7da35a00967c9623bb39203fb;hpb=c66d21ab83593b0420982c65f3b87c52889ad7f1;p=elisp%2Fgnus.git-

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index fd9ea8a..8f66d43 100644
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -378,6 +378,7 @@ ARTICLE is the article number of the current headline.")
     (when (file-exists-p file)
       (with-temp-buffer
 	(let ((coding-system-for-read 'binary)
+	      (input-coding-system 'binary)
 	      emacs-lisp-mode-hook)
 	  (insert-file-contents file)
 	  (emacs-lisp-mode)
@@ -394,6 +395,7 @@ ARTICLE is the article number of the current headline.")
 			server ".el"))
 	       nnrss-directory)))
     (let ((coding-system-for-write 'binary)
+	  (output-coding-system 'binary)
 	  print-level print-length)
       (with-temp-file file
 	(insert "(setq nnrss-server-data '"
@@ -416,6 +418,7 @@ ARTICLE is the article number of the current headline.")
     (when (file-exists-p file)
       (with-temp-buffer
 	(let ((coding-system-for-read 'binary)
+	      (input-coding-system 'binary)
 	      emacs-lisp-mode-hook)
 	  (insert-file-contents file)
 	  (emacs-lisp-mode)
@@ -438,6 +441,7 @@ ARTICLE is the article number of the current headline.")
 			server ".el"))
 	       nnrss-directory)))
     (let ((coding-system-for-write 'binary)
+	  (output-coding-system 'binary)
 	  print-level print-length)
       (with-temp-file file
 	(insert "(setq nnrss-group-data '"