aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
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