diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/nnfolder.el | 4 |
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 |