(nnspool-file-coding-system): New variable.

(nnspool-retrieve-headers, nnspool-retrieve-headers-with-nov,
nnspool-find-file): Override `nnheader-file-coding-system' by
`nnspool-file-coding-system' for gnspool on Windows 95/NT.

diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el
index 8d45210fcc900b98858f9515fb2f6e0d83906c4f..4e2280f0eef3fb78c3aa55433b70a8dc669e97ec 100644 (file)
--- a/lisp/gnus/nnspool.el
+++ b/lisp/gnus/nnspool.el
@@ -82,6 +82,10 @@ there.")
 (defvoo nnspool-rejected-article-hook nil
   "*A hook that will be run when an article has been rejected by the server.")
 
+;; 1997/8/14 by MORIOKA Tomohiko
+(defvoo nnspool-file-coding-system nnheader-file-coding-system
+  "Coding system for nnspool.")
+
 \f
 
 (defconst nnspool-version "nnspool 2.0"
@@ -109,6 +113,9 @@ there.")
             (default-directory nnspool-current-directory)
             (do-message (and (numberp nnspool-large-newsgroup)
                              (> number nnspool-large-newsgroup)))
+            ;; 1997/8/14 by MORIOKA Tomohiko
+            ;;   for Win32
+            (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))
@@ -349,6 +356,9 @@ there.")
     (let ((nov (nnheader-group-pathname
                nnspool-current-group nnspool-nov-directory ".overview"))
          (arts articles)
+         ;; 1997/8/14 by MORIOKA Tomohiko
+         ;;   for Win32
+         (nnheader-file-coding-system nnspool-file-coding-system)
          last)
       (if (not (file-exists-p nov))
          ()
@@ -430,7 +440,11 @@ there.")
   (set-buffer nntp-server-buffer)
   (erase-buffer)
   (condition-case ()
-      (progn (nnheader-insert-file-contents file) t)
+      ;; 1997/8/14 by MORIOKA Tomohiko
+      ;;   for Win32
+      (let ((nnheader-file-coding-system nnspool-file-coding-system))
+       (nnheader-insert-file-contents file)
+       t)
     (file-error nil)))
 
 (defun nnspool-possibly-change-directory (group)