projects / elisp / tm.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
This commit was generated by cvs2svn to compensate for changes in r533,
[elisp/tm.git] / gnus / tm-gnus5.el
diff --git a/gnus/tm-gnus5.el b/gnus/tm-gnus5.el
index 78db566..b3b6bb7 100644 (file)
--- a/gnus/tm-gnus5.el
+++ b/gnus/tm-gnus5.el
@@ -8,7 +8,7 @@
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;;         and KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Created: 1995/09/24
-;;; Version: $Revision: 7.72 $
+;;; Version: $Revision: 7.79 $
 ;;; Keywords: news, MIME, multimedia, multilingual, encoded-word
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -42,7 +42,7 @@
 ;;;
 
 (defconst tm-gnus/RCS-ID
-  "$Id: tm-gnus5.el,v 7.72 1996/06/27 14:35:40 morioka Exp morioka $")
+  "$Id: tm-gnus5.el,v 7.79 1996/07/18 12:17:11 morioka Exp $")
 
 (defconst tm-gnus/version
   (concat (get-version-string tm-gnus/RCS-ID) " for Gnus 5.2 or later"))
@@ -114,8 +114,7 @@ This variable is set to `gnus-show-mime'.")
 (defun tm-gnus/content-header-filter ()
   (goto-char (point-min))
   (mime-preview/cut-header)
-  (mime-charset-decode-region (point-min)(point-max)
-                             mime/default-coding-system)
+  (decode-mime-charset-region (point-min)(point-max) default-mime-charset)
   (mime/decode-message-header)
   )
 
@@ -125,7 +124,7 @@ This variable is set to `gnus-show-mime'.")
 
 (set-alist 'mime-viewer/code-converter-alist
           'gnus-original-article-mode
-          (function mime-charset-decode-region))
+          (function mime-charset/decode-buffer))
 
 (defun mime-viewer/quitting-method-for-gnus5 ()
   (if (not gnus-show-mime)
@@ -228,10 +227,11 @@ This variable is set to `gnus-show-mime'.")
   (setq tm:mother-button-dispatcher
        (function gnus-article-push-button))
   (let ((mime-viewer/ignored-field-regexp "^:$")
-       (mime/default-coding-system
-        (save-excursion
-          (set-buffer gnus-summary-buffer)
-          mime/default-coding-system)))
+       (default-mime-charset
+         (save-excursion
+           (set-buffer gnus-summary-buffer)
+           default-mime-charset))
+       )
     (mime/viewer-mode nil nil nil gnus-original-article-buffer
                      gnus-article-buffer
                      gnus-article-mode-map)
@@ -243,10 +243,10 @@ This variable is set to `gnus-show-mime'.")
 (setq gnus-show-mime-method (function tm-gnus/preview-article))
 
 (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))
+  (decode-mime-charset-region (point-min)(point-max)
+                             (save-excursion
+                               (set-buffer gnus-summary-buffer)
+                               default-mime-charset))
   (mime/decode-message-header)
   (run-hooks 'tm-gnus/article-prepare-hook)
   )
@@ -255,20 +255,20 @@ This variable is set to `gnus-show-mime'.")
       (function tm-gnus/article-decode-encoded-word))
 
 
-;;; @ for MULE
+;;; @ for mule (Multilingual support)
 ;;;
 
-(defvar gnus-newsgroup-default-coding-system-alist nil)
+(defvar gnus-newsgroup-default-charset-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))
+(defun gnus-set-newsgroup-default-charset (newsgroup charset)
+  "Set CHARSET for the NEWSGROUP as default MIME charset."
+  (set-alist 'gnus-newsgroup-default-charset-alist
+            (concat "^" (regexp-quote newsgroup) "\\($\\|\\.\\)")
+            charset))
 
 (cond
  ((featurep 'mule)
-  (cond ((boundp 'MULE)
+  (cond ((boundp 'MULE) ; for MULE 1.* and 2.*.
         (define-service-coding-system gnus-nntp-service nil *noconv*)
         (if (and (boundp 'nntp-server-process)
                  (processp nntp-server-process)
@@ -276,7 +276,7 @@ This variable is set to `gnus-show-mime'.")
             (set-process-coding-system nntp-server-process *noconv* *noconv*)
           )
         )
-       (running-xemacs-20
+       (running-xemacs-20 ; for XEmacs/mule.
         (if (and (boundp 'nntp-server-process)
                  (processp nntp-server-process)
                  )
@@ -320,12 +320,13 @@ This variable is set to `gnus-show-mime'.")
   (add-hook 'nnmail-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 "tw"       *big5*)
-  (gnus-set-newsgroup-default-coding-system "han"      *euc-kr*)
-  (and (boundp '*koi8*)
-       (gnus-set-newsgroup-default-coding-system "relcom" *koi8*))
+  (gnus-set-newsgroup-default-charset "alt.chinese"            'hz)
+  (gnus-set-newsgroup-default-charset "alt.chinese.text.big5"  'big5)
+  (gnus-set-newsgroup-default-charset "tw"                     'big5)
+  (gnus-set-newsgroup-default-charset "hk"                     'big5)
+  (gnus-set-newsgroup-default-charset "hkstar"                 'big5)
+  (gnus-set-newsgroup-default-charset "han"                            'euc-kr)
+  (gnus-set-newsgroup-default-charset "relcom"                 'koi8-r)
   ))
 
 
@@ -333,15 +334,15 @@ This variable is set to `gnus-show-mime'.")
 ;;;
 
 (defun tm-gnus/decode-summary-from-and-subjects ()
-  (let ((rest gnus-newsgroup-default-coding-system-alist)
+  (let ((rest gnus-newsgroup-default-charset-alist)
        cell)
     (catch 'tag
       (while (setq cell (car rest))
        (if (string-match (car cell) gnus-newsgroup-name)
            (throw 'tag
                   (progn
-                    (make-local-variable 'mime/default-coding-system)
-                    (setq mime/default-coding-system (cdr cell))
+                    (make-local-variable 'default-mime-charset)
+                    (setq default-mime-charset (cdr cell))
                     )))
        (setq rest (cdr rest))
        )))
@@ -354,9 +355,9 @@ This variable is set to `gnus-show-mime'.")
        (if (eq method 'nntp)
           (progn
             (setq from
-                  (character-decode-string from mime/default-coding-system))
+                  (decode-mime-charset-string from default-mime-charset))
             (setq subj
-                  (character-decode-string subj mime/default-coding-system))
+                  (decode-mime-charset-string subj default-mime-charset))
             ))
        (mail-header-set-from
        header (mime-eword/decode-string from))
@@ -364,7 +365,7 @@ This variable is set to `gnus-show-mime'.")
        header (mime-eword/decode-string subj))
        ))
    gnus-newsgroup-headers))
-     
+
 (or (boundp 'nnheader-encoded-words-decoding)
     (add-hook 'gnus-select-group-hook
              'tm-gnus/decode-summary-from-and-subjects)