From: keiichi <keiichi>
Date: Mon, 1 Mar 1999 02:57:28 +0000 (+0000)
Subject: (nnspool-file-coding-system): Abolished.
X-Git-Tag: nana-gnus-6_12_7~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bdba7c475354483655c038a0da3cdf0d59792b09;p=elisp%2Fgnus.git-

(nnspool-file-coding-system): Abolished.
(nnspool-retrieve-headers): Don't use `nnheader-file-coding-system'.
(nnspool-retrieve-headers-with-nov): Ditto.
(nnspool-find-file): Ditto.
---

diff --git a/lisp/nnspool.el b/lisp/nnspool.el
index 1cca067..df6642a 100644
--- a/lisp/nnspool.el
+++ b/lisp/nnspool.el
@@ -112,7 +112,6 @@ there.")
 	     (default-directory nnspool-current-directory)
 	     (do-message (and (numberp nnspool-large-newsgroup)
 			      (> number nnspool-large-newsgroup)))
-	     (nnheader-file-coding-system nnspool-file-coding-system)
 	     file beg article ag)
 	(if (and (numberp (car articles))
 		 (nnspool-retrieve-headers-with-nov articles fetch-old))
@@ -357,7 +356,6 @@ there.")
     (let ((nov (nnheader-group-pathname
 		nnspool-current-group nnspool-nov-directory ".overview"))
 	  (arts articles)
-      	  (nnheader-file-coding-system nnspool-file-coding-system)
 	  last)
       (if (not (file-exists-p nov))
 	  ()
@@ -439,7 +437,7 @@ there.")
   (set-buffer nntp-server-buffer)
   (erase-buffer)
   (condition-case ()
-      (let ((nnheader-file-coding-system nnspool-file-coding-system))
+      (progn
 	(nnheader-insert-file-contents file)
 	t)
     (file-error nil)))