diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-08-28 04:51:02 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-08-28 04:51:02 +0000 |
| commit | 3a787ab0c3a10f9c651b97e48dea8d62da7e7665 (patch) | |
| tree | c28e42d2d2aa3eae50b239a82f9b6e9122c2e181 /lisp/gnus/nnspool.el | |
| parent | fc46309dc8617616fab1e9a6dd570a13400e17af (diff) | |
| download | emacs-3a787ab0c3a10f9c651b97e48dea8d62da7e7665.tar.gz | |
(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.
Diffstat (limited to 'lisp/gnus/nnspool.el')
| -rw-r--r-- | lisp/gnus/nnspool.el | 16 |
1 files changed, 15 insertions, 1 deletions
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) |