Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(nnfolder-request-list): Bind

Browse source 
file-name-coding-system to binary.
(nnfolder-possibly-change-group): Likewise.
This commit is contained in:
Kenichi Handa 1997-09-26 01:50:55 +00:00
parent 80bb5a78a5
commit ddcfd8dee9
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/nnfolder.el
View file

@ -286,6 +286,7 @@ time saver for large mailboxes.")
;; 1997/8/14 by MORIOKA Tomohiko
;; for XEmacs/mule.
(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
(nnmail-find-file nnfolder-active-file)
(setq nnfolder-group-alist (nnmail-get-active)))
@ -509,7 +510,8 @@ time saver for large mailboxes.")
;; Change group.
(when (and 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)
(when (and (not (assoc group nnfolder-group-alist))
(not (file-exists-p