tm 7.57.

[elisp/tm.git] / gnus / tm-sgnus.el

diff --git a/gnus/tm-sgnus.el b/gnus/tm-sgnus.el
index 6b9f47d..3ef3497 100644 (file)
--- a/gnus/tm-sgnus.el
+++ b/gnus/tm-sgnus.el
@@ -7,7 +7,7 @@
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1995/09/24
-;;; Version: $Revision: 7.54 $
+;;; Version: $Revision: 7.55 $
 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -41,7 +41,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-sgnus.el,v 7.54 1996/04/29 01:55:32 morioka Exp $")
+  "$Id: tm-sgnus.el,v 7.55 1996/05/07 18:19:39 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for September"))
@@ -212,49 +212,6 @@ This variable is set to `gnus-show-mime'.")
 (setq gnus-decode-encoded-word-method
       (function tm-gnus/article-decode-encoded-word))
 
-;; (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/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)
-;;                ))
-;;       ))
-
 
 ;;; @ for MULE
 ;;;
@@ -268,8 +225,10 @@ This variable is set to `gnus-show-mime'.")
             cs))
 
 (cond
- ((boundp 'MULE)
-  (define-service-coding-system gnus-nntp-service nil *noconv*)
+ ((featurep 'mule)
+  (if (boundp 'MULE)
+      (define-service-coding-system gnus-nntp-service nil *noconv*)
+    )
   (if (and (boundp 'nntp-server-process)
           (processp nntp-server-process)
           )
@@ -279,12 +238,12 @@ This variable is set to `gnus-show-mime'.")
    'nnheader
    (lambda ()
      (defun nnheader-find-file-noselect (filename &optional nowarn rawfile)
-       (let ((file-coding-system-for-read '*noconv*))
+       (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*))
+       (let ((file-coding-system-for-read *noconv*))
         (insert-file-contents filename visit beg end replace)
         ))
      ;;(fset 'nnheader-raw-write-region 'si:write-region)
@@ -294,21 +253,11 @@ This variable is set to `gnus-show-mime'.")
     )
   (add-hook 'nnmail-prepare-save-mail-hook
            'tm-gnus/prepare-save-mail-function)
-  ;; (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)
   
-  (gnus-set-newsgroup-default-coding-system "alt.chinese.text"      '*hz*)
-  (gnus-set-newsgroup-default-coding-system "alt.chinese.text.big5" '*big5*)
-  (gnus-set-newsgroup-default-coding-system "han"    '*euc-kr*)
-  (gnus-set-newsgroup-default-coding-system "relcom" '*koi8*)
+  (gnus-set-newsgroup-default-coding-system "alt.chinese.text"      *hz*)
+  (gnus-set-newsgroup-default-coding-system "alt.chinese.text.big5" *big5*)
+  (gnus-set-newsgroup-default-coding-system "han"    *euc-kr*)
+  (gnus-set-newsgroup-default-coding-system "relcom" *koi8*)
   ))