Commit ddcfd8de authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(nnfolder-request-list): Bind

file-name-coding-system to binary.
(nnfolder-possibly-change-group): Likewise.
parent 80bb5a78
...@@ -286,6 +286,7 @@ time saver for large mailboxes.") ...@@ -286,6 +286,7 @@ time saver for large mailboxes.")
;; 1997/8/14 by MORIOKA Tomohiko ;; 1997/8/14 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 nnfolder-active-file) (nnmail-find-file nnfolder-active-file)
(setq nnfolder-group-alist (nnmail-get-active))) (setq nnfolder-group-alist (nnmail-get-active)))
...@@ -509,7 +510,8 @@ time saver for large mailboxes.") ...@@ -509,7 +510,8 @@ time saver for large mailboxes.")
;; Change group. ;; Change group.
(when (and group (when (and group
(not (equal group nnfolder-current-group))) (not (equal group nnfolder-current-group)))
(let ((pathname-coding-system 'binary)) (let ((file-name-coding-system 'binary)
(pathname-coding-system 'binary))
(nnmail-activate 'nnfolder) (nnmail-activate 'nnfolder)
(when (and (not (assoc group nnfolder-group-alist)) (when (and (not (assoc group nnfolder-group-alist))
(not (file-exists-p (not (file-exists-p
......
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