aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorKenichi Handa1997-09-26 01:50:55 +0000
committerKenichi Handa1997-09-26 01:50:55 +0000
commitddcfd8dee9387d740a01dde32808fb6e69d06e08 (patch)
tree94e577fe8b5cf8a0b7310a7dab3a4353c3620cdf /lisp
parent80bb5a78a57410eb24c8a3236a413a944b2d61c0 (diff)
downloademacs-ddcfd8dee9387d740a01dde32808fb6e69d06e08.tar.gz
emacs-ddcfd8dee9387d740a01dde32808fb6e69d06e08.zip
(nnfolder-request-list): Bind
file-name-coding-system to binary. (nnfolder-possibly-change-group): Likewise.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/gnus/nnfolder.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus/nnfolder.el b/lisp/gnus/nnfolder.el
index d4fea3e0510..c7f9a720ff2 100644
--- a/lisp/gnus/nnfolder.el
+++ b/lisp/gnus/nnfolder.el
@@ -286,6 +286,7 @@ time saver for large mailboxes.")
286 ;; 1997/8/14 by MORIOKA Tomohiko 286 ;; 1997/8/14 by MORIOKA Tomohiko
287 ;; for XEmacs/mule. 287 ;; for XEmacs/mule.
288 (let ((nnmail-file-coding-system nnmail-active-file-coding-system) 288 (let ((nnmail-file-coding-system nnmail-active-file-coding-system)
289 (file-name-coding-system 'binary) ; for Emacs 20
289 (pathname-coding-system 'binary)) ; for XEmacs/mule 290 (pathname-coding-system 'binary)) ; for XEmacs/mule
290 (nnmail-find-file nnfolder-active-file) 291 (nnmail-find-file nnfolder-active-file)
291 (setq nnfolder-group-alist (nnmail-get-active))) 292 (setq nnfolder-group-alist (nnmail-get-active)))
@@ -509,7 +510,8 @@ time saver for large mailboxes.")
509 ;; Change group. 510 ;; Change group.
510 (when (and group 511 (when (and group
511 (not (equal group nnfolder-current-group))) 512 (not (equal group nnfolder-current-group)))
512 (let ((pathname-coding-system 'binary)) 513 (let ((file-name-coding-system 'binary)
514 (pathname-coding-system 'binary))
513 (nnmail-activate 'nnfolder) 515 (nnmail-activate 'nnfolder)
514 (when (and (not (assoc group nnfolder-group-alist)) 516 (when (and (not (assoc group nnfolder-group-alist))
515 (not (file-exists-p 517 (not (file-exists-p