diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-09-26 01:50:55 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-09-26 01:50:55 +0000 |
| commit | 4f7d7340f8f587e322608b396c5f7d9b2ebb22df (patch) | |
| tree | 50aaff07e5d17fb63a0f424f485fabea76eaea86 /lisp/gnus/nnml.el | |
| parent | 6e262a8810ce4ab3d9c2492dc5686e7acd71fe51 (diff) | |
| download | emacs-4f7d7340f8f587e322608b396c5f7d9b2ebb22df.tar.gz | |
(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.
Diffstat (limited to 'lisp/gnus/nnml.el')
| -rw-r--r-- | lisp/gnus/nnml.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/gnus/nnml.el b/lisp/gnus/nnml.el index 3cfd12bb374..6819086fa6c 100644 --- a/lisp/gnus/nnml.el +++ b/lisp/gnus/nnml.el @@ -99,8 +99,8 @@ all. This may very well take some time.") (number (length sequence)) (count 0) ;; 1997/8/12 by MORIOKA Tomohiko - ;; for XEmacs/mule. - (pathname-coding-system 'binary) + (file-name-coding-system 'binary) ; for Emacs 20 + (pathname-coding-system 'binary) ; for XEmacs/mule beg article) (if (stringp (car sequence)) 'headers @@ -164,8 +164,8 @@ all. This may very well take some time.") (nnml-possibly-change-directory group server) (let* ((nntp-server-buffer (or buffer nntp-server-buffer)) ;; 1997/8/12 by MORIOKA Tomohiko - ;; for XEmacs/mule. - (pathname-coding-system 'binary) + (file-name-coding-system 'binary) ; for Emacs 20 + (pathname-coding-system 'binary) ; for XEmacs/mule path gpath group-num) (if (stringp id) (when (and (setq group-num (nnml-find-group-number id)) @@ -195,8 +195,8 @@ all. This may very well take some time.") (deffoo nnml-request-group (group &optional server dont-check) ;; 1997/8/12 by MORIOKA Tomohiko - ;; for XEmacs/mule. - (let ((pathname-coding-system 'binary)) + (let ((file-name-coding-system 'binary) ; for Emacs 20 + (pathname-coding-system 'binary)) ; for XEmacs/mule (cond ((not (nnml-possibly-change-directory group server)) (nnheader-report 'nnml "Invalid group (no such directory)")) @@ -248,6 +248,7 @@ all. This may very well take some time.") ;; 1997/8/12 by MORIOKA Tomohiko ;; for XEmacs/mule. (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 (nnmail-find-file nnml-active-file) ) @@ -563,8 +564,8 @@ all. This may very well take some time.") t (let ((pathname (nnmail-group-pathname group nnml-directory)) ;; 1997/8/14 by MORIOKA Tomohiko - ;; for XEmacs/mule. - (pathname-coding-system 'binary)) + (file-name-coding-system 'binary) ; for Emacs 20 + (pathname-coding-system 'binary)) ; for XEmacs/mule (when (not (equal pathname nnml-current-directory)) (setq nnml-current-directory pathname nnml-current-group group |