From: keiichi <keiichi>
Date: Thu, 4 Mar 1999 11:12:25 +0000 (+0000)
Subject: Use `nnheader-pathname-coding-system'.
X-Git-Tag: nana-gnus-6_12_8~6
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a1fc7e03f9f88b8808ac7b043f833b44670f5da6;p=elisp%2Fgnus.git-

Use `nnheader-pathname-coding-system'.
(nnfolder-request-list): Use `nnmail-find-active-file'.
---

diff --git a/lisp/nnfolder.el b/lisp/nnfolder.el
index db9666b..5a1a9cc 100644
--- a/lisp/nnfolder.el
+++ b/lisp/nnfolder.el
@@ -273,10 +273,8 @@ time saver for large mailboxes.")
 (deffoo nnfolder-request-list (&optional server)
   (nnfolder-possibly-change-group nil server)
   (save-excursion
-    (let ((nnmail-file-coding-system nnmail-active-file-coding-system)
-	  (pathname-coding-system 'binary))
-      (nnmail-find-file nnfolder-active-file)
-      (setq nnfolder-group-alist (nnmail-get-active)))
+    (nnmail-find-active-file nnfolder-active-file)
+    (setq nnfolder-group-alist (nnmail-get-active))
     t))
 
 (deffoo nnfolder-request-newgroups (date &optional server)
@@ -534,7 +532,7 @@ deleted.  Point is left where the deleted region was."
   ;; Change group.
   (when (and group
 	     (not (equal group nnfolder-current-group)))
-    (let ((pathname-coding-system 'binary))
+    (let ((pathname-coding-system nnheader-pathname-coding-system))
       (nnmail-activate 'nnfolder)
       (when (and (not (assoc group nnfolder-group-alist))
 		 (not (file-exists-p
@@ -797,7 +795,8 @@ deleted.  Point is left where the deleted region was."
 
 (defun nnfolder-group-pathname (group)
   "Make pathname for GROUP."
-  (setq group (gnus-encode-coding-string group nnmail-pathname-coding-system))
+  (setq group (gnus-encode-coding-string group
+					 nnheader-pathname-coding-system))
   (let ((dir (file-name-as-directory (expand-file-name nnfolder-directory))))
     ;; If this file exists, we use it directly.
     (if (or nnmail-use-long-file-names