+
+;;; @ for MULE
+;;;
+
+(defvar gnus-newsgroup-default-coding-system-alist nil)
+
+(defun gnus-set-newsgroup-default-coding-system (ng cs)
+ "Define CS as default coding system for newsgroup NG."
+ (set-alist 'gnus-newsgroup-default-coding-system-alist
+ (concat "^" (regexp-quote ng) "\\($\\|\\.\\)")
+ cs))
+
+(cond
+ ((featurep 'mule)
+ (cond ((boundp 'MULE)
+ (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*)
+ )
+ )
+ (running-xemacs-20
+ (if (and (boundp 'nntp-server-process)
+ (processp nntp-server-process)
+ )
+ (set-process-input-coding-system nntp-server-process 'noconv)
+ )
+ ))
+ (call-after-loaded
+ 'nnheader
+ (lambda ()
+ (defun nnheader-find-file-noselect (filename &optional nowarn rawfile)
+ (let ((file-coding-system-for-read *noconv*))
+ (find-file-noselect filename nowarn rawfile)
+ ))
+ (defun nnheader-insert-file-contents-literally
+ (filename &optional visit beg end replace)
+ (let ((file-coding-system-for-read *noconv*))
+ (insert-file-contents-literally filename visit beg end replace)
+ ))
+ ))
+ ;; Please use Gnus 5.2.10 or later if you use Mule.
+ (call-after-loaded
+ 'nnmail
+ (lambda ()
+ (defun nnmail-find-file (file)
+ "Insert FILE in server buffer safely. [tm-sgnus.el]"
+ (set-buffer nntp-server-buffer)
+ (erase-buffer)
+ (let ((format-alist nil)
+ (after-insert-file-functions ; for jam-code-guess
+ (if (memq 'jam-code-guess-after-insert-file-function
+ after-insert-file-functions)
+ '(jam-code-guess-after-insert-file-function)))
+ (file-coding-system-for-read *noconv*))
+ (condition-case ()
+ (progn (insert-file-contents file) t)
+ (file-error nil))))
+ ))
+ (defun tm-gnus/prepare-save-mail-function ()
+ (setq file-coding-system *noconv*)