From 3a787ab0c3a10f9c651b97e48dea8d62da7e7665 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 28 Aug 1997 04:51:02 +0000 Subject: [PATCH] (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. --- lisp/gnus/nnspool.el | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/nnspool.el b/lisp/gnus/nnspool.el index 8d45210fcc9..4e2280f0eef 100644 --- 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.") + (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) -- 2.39.5