-(if (boundp 'MULE)
- (progn
- (define-service-coding-system gnus-nntp-service nil *noconv*)
- (if (and (boundp 'nntp-server-process)
- (processp nntp-server-process)
- )
- (set-process-coding-system nntp-server-process *noconv* *noconv*)
- )
-
- (or (fboundp 'tm-gnus/original-request-article)
- (fset 'tm-gnus/original-request-article
- (symbol-function 'gnus-request-article))
- )
-
- (defun gnus-request-article (article group &optional buffer)
- (let ((file-coding-system-for-read *noconv*))
- (tm-gnus/original-request-article article group buffer)
- ))
-
- (defun tm-gnus/prepare-save-mail-function ()
- (setq file-coding-system *noconv*)
- )
- (add-hook 'nnmbox-prepare-save-mail-hook
- 'tm-gnus/prepare-save-mail-function)
- (add-hook 'nnbabyl-prepare-save-mail-hook
- 'tm-gnus/prepare-save-mail-function)
- (add-hook 'nnml-prepare-save-mail-hook
- 'tm-gnus/prepare-save-mail-function)
- (add-hook 'nnmh-prepare-save-mail-hook
- 'tm-gnus/prepare-save-mail-function)
- (add-hook 'nnfolder-prepare-save-mail-hook
- 'tm-gnus/prepare-save-mail-function)
-
- (defun tm-gnus/nnheader-find-file-noselect (&rest args)
- (let ((file-coding-system-for-read *noconv*))
- (apply (function find-file-noselect) args)
- ))
- (eval-after-load
- "nnheader"
- '(fset 'nnheader-find-file-noselect
- 'tm-gnus/nnheader-find-file-noselect)
- )
-
- (defun tm-gnus/nnmail-get-new-mail (&rest args)
- (let ((file-coding-system-for-read *noconv*))
- (apply (function tm-gnus/original-nnmail-get-new-mail) args)
- ))
- (eval-after-load
- "nnmail"
- '(progn (or (fboundp 'tm-gnus/original-nnmail-get-new-mail)
- (fset 'tm-gnus/original-nnmail-get-new-mail
- (symbol-function 'nnmail-get-new-mail))
- )
- (fset 'nnmail-get-new-mail 'tm-gnus/nnmail-get-new-mail)
- ))
- ))
-