+(defun tm-gnus/article-decode-encoded-word ()
+ (character-decode-region (point-min)(point-max)
+ (save-excursion
+ (set-buffer gnus-summary-buffer)
+ mime/default-coding-system))
+ (mime/decode-message-header)
+ (run-hooks 'tm-gnus/article-prepare-hook)
+ )
+
+(setq gnus-decode-encoded-word-method
+ (function tm-gnus/article-decode-encoded-word))
+
+
+;;; @ 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-raw-file-contents
+ (filename &optional visit beg end replace)
+ (let ((file-coding-system-for-read *noconv*))
+ (insert-file-contents filename visit beg end replace)
+ ))
+ ;;(fset 'nnheader-raw-write-region 'si:write-region)
+ ))
+ (defun tm-gnus/prepare-save-mail-function ()
+ (setq file-coding-system *noconv*)