diff options
| author | Kenichi Handa | 1997-09-26 01:50:55 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-09-26 01:50:55 +0000 |
| commit | ddcfd8dee9387d740a01dde32808fb6e69d06e08 (patch) | |
| tree | 94e577fe8b5cf8a0b7310a7dab3a4353c3620cdf /lisp/gnus | |
| parent | 80bb5a78a57410eb24c8a3236a413a944b2d61c0 (diff) | |
| download | emacs-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/gnus')
| -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 |