comparison lisp/gnus/nnfolder.el @ 19990:1438b35b320b

(nnfolder-request-list): Bind file-name-coding-system to binary. (nnfolder-possibly-change-group): Likewise.

19989:9049c6de031f

  (nnfolder-possibly-change-group nil server)
  (save-excursion
    ;; 1997/8/14 by MORIOKA Tomohiko
    ;;    for XEmacs/mule.
    (let ((nnmail-file-coding-system nnmail-active-file-coding-system)
	  (pathname-coding-system 'binary)) ; for XEmacs/mule
      (nnmail-find-file nnfolder-active-file)
      (setq nnfolder-group-alist (nnmail-get-active)))
    t))

    (setq nnfolder-current-buffer nil
	  nnfolder-current-group nil))
  ;; Change group.
  (when (and group
	     (not (equal group nnfolder-current-group)))
    (let ((pathname-coding-system 'binary))
      (nnmail-activate 'nnfolder)
      (when (and (not (assoc group nnfolder-group-alist))
		 (not (file-exists-p
		       (nnfolder-group-pathname group))))
	;; The group doesn't exist, so we create a new entry for it.

19990:1438b35b320b

  (nnfolder-possibly-change-group nil server)
  (save-excursion
    ;; 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)))
    t))

    (setq nnfolder-current-buffer nil
	  nnfolder-current-group nil))
  ;; Change group.
  (when (and group
	     (not (equal group nnfolder-current-group)))
    (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
		       (nnfolder-group-pathname group))))
	;; The group doesn't exist, so we create a new entry for it.