Commit 4f7d7340 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(nnml-retrieve-headers): Bind

file-name-coding-system to binary.
(nnml-request-article): Likewise.
(nnml-request-group): Likewise.
(nnml-request-list): Likewise.
(nnml-possibly-change-directory): Likewise.
parent 6e262a88
...@@ -99,8 +99,8 @@ all. This may very well take some time.") ...@@ -99,8 +99,8 @@ all. This may very well take some time.")
(number (length sequence)) (number (length sequence))
(count 0) (count 0)
;; 1997/8/12 by MORIOKA Tomohiko ;; 1997/8/12 by MORIOKA Tomohiko
;; for XEmacs/mule. (file-name-coding-system 'binary) ; for Emacs 20
(pathname-coding-system 'binary) (pathname-coding-system 'binary) ; for XEmacs/mule
beg article) beg article)
(if (stringp (car sequence)) (if (stringp (car sequence))
'headers 'headers
...@@ -164,8 +164,8 @@ all. This may very well take some time.") ...@@ -164,8 +164,8 @@ all. This may very well take some time.")
(nnml-possibly-change-directory group server) (nnml-possibly-change-directory group server)
(let* ((nntp-server-buffer (or buffer nntp-server-buffer)) (let* ((nntp-server-buffer (or buffer nntp-server-buffer))
;; 1997/8/12 by MORIOKA Tomohiko ;; 1997/8/12 by MORIOKA Tomohiko
;; for XEmacs/mule. (file-name-coding-system 'binary) ; for Emacs 20
(pathname-coding-system 'binary) (pathname-coding-system 'binary) ; for XEmacs/mule
path gpath group-num) path gpath group-num)
(if (stringp id) (if (stringp id)
(when (and (setq group-num (nnml-find-group-number id)) (when (and (setq group-num (nnml-find-group-number id))
...@@ -195,8 +195,8 @@ all. This may very well take some time.") ...@@ -195,8 +195,8 @@ all. This may very well take some time.")
(deffoo nnml-request-group (group &optional server dont-check) (deffoo nnml-request-group (group &optional server dont-check)
;; 1997/8/12 by MORIOKA Tomohiko ;; 1997/8/12 by MORIOKA Tomohiko
;; for XEmacs/mule. (let ((file-name-coding-system 'binary) ; for Emacs 20
(let ((pathname-coding-system 'binary)) (pathname-coding-system 'binary)) ; for XEmacs/mule
(cond (cond
((not (nnml-possibly-change-directory group server)) ((not (nnml-possibly-change-directory group server))
(nnheader-report 'nnml "Invalid group (no such directory)")) (nnheader-report 'nnml "Invalid group (no such directory)"))
...@@ -248,6 +248,7 @@ all. This may very well take some time.") ...@@ -248,6 +248,7 @@ all. This may very well take some time.")
;; 1997/8/12 by MORIOKA Tomohiko ;; 1997/8/12 by MORIOKA Tomohiko
;; for XEmacs/mule. ;; for XEmacs/mule.
(let ((nnmail-file-coding-system nnmail-active-file-coding-system) (let ((nnmail-file-coding-system nnmail-active-file-coding-system)
(file-name-coding-system 'binary) ; for Emacs 20
(pathname-coding-system 'binary)) ; for XEmacs/mule (pathname-coding-system 'binary)) ; for XEmacs/mule
(nnmail-find-file nnml-active-file) (nnmail-find-file nnml-active-file)
) )
...@@ -563,8 +564,8 @@ all. This may very well take some time.") ...@@ -563,8 +564,8 @@ all. This may very well take some time.")
t t
(let ((pathname (nnmail-group-pathname group nnml-directory)) (let ((pathname (nnmail-group-pathname group nnml-directory))
;; 1997/8/14 by MORIOKA Tomohiko ;; 1997/8/14 by MORIOKA Tomohiko
;; for XEmacs/mule. (file-name-coding-system 'binary) ; for Emacs 20
(pathname-coding-system 'binary)) (pathname-coding-system 'binary)) ; for XEmacs/mule
(when (not (equal pathname nnml-current-directory)) (when (not (equal pathname nnml-current-directory))
(setq nnml-current-directory pathname (setq nnml-current-directory pathname
nnml-current-group group nnml-current-group group
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment