Mercurial > emacs
changeset 19599:8fa15d926b32
(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.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 28 Aug 1997 04:51:02 +0000 |
| parents | 611e0de24d43 |
| children | 5d6dd68d8889 |
| files | lisp/gnus/nnspool.el |
| diffstat | 1 files changed, 15 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/nnspool.el Thu Aug 28 04:51:02 1997 +0000 +++ b/lisp/gnus/nnspool.el Thu Aug 28 04:51:02 1997 +0000 @@ -82,6 +82,10 @@ (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 @@ (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 @@ (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 @@ (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)