Mercurial > emacs

changeset 19994:a862fb5ba4a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Kenichi Handa <handa@m17n.org>
date Fri, 26 Sep 1997 01:50:55 +0000
parents 2c30b1fb6409
children 6182146747a7
files lisp/gnus/nnml.el
diffstat 1 files changed, 9 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/nnml.el	Fri Sep 26 01:50:55 1997 +0000
+++ b/lisp/gnus/nnml.el	Fri Sep 26 01:50:55 1997 +0000
@@ -99,8 +99,8 @@
 	    (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 @@
   (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 @@
 
 (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 @@
     ;; 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 @@
       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