# HG changeset patch # User Kenichi Handa # Date 875238655 0 # Node ID cb6f1cb0f072b624c78310c7103ccef37a3f4f91 # Parent 6182146747a70145ff4e350683103046d62c0e67 Require nntp instead of gnus and message. Set euc-kr for newsgroup "han". Delete code for add-hooking gnus-mule-initialize and setting coding system for nntp. Set default coding system for encoding to iso-latin-1. (gnus-mule-select-coding-system): Get a coding system of the current newsgroup from gnus-summary-buffer. (gnus-mule-decode-summary): Deleted. (gnus-mule-initialize): Add-hook gnus-mule-select-coding-system to gnus-parse-headers-hook. Don't add-hook gnus-mule-decode-summary and gnus-mule-decode-article. Don't set process coding system for nntp stream to 'no-conversion, instead set nntp-coding-system-for-read to 'binary. Set nnheader-file-coding-system and nnmail-file-coding-system to 'binary. Set nntp-coding-system-for-write to binary. diff -r 6182146747a7 -r cb6f1cb0f072 lisp/gnus/gnus-mule.el --- a/lisp/gnus/gnus-mule.el Fri Sep 26 01:50:55 1997 +0000 +++ b/lisp/gnus/gnus-mule.el Fri Sep 26 01:50:55 1997 +0000 @@ -1,6 +1,6 @@ ;;; gnus-mule.el --- Provide multilingual environment to GNUS -;; Copyright (C) 1995 Free Software Foundation, Inc. +;; Copyright (C) 1995,1997 Free Software Foundation, Inc. ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Keywords: gnus, mule @@ -24,10 +24,8 @@ ;;; Commentary: -;; This package enables GNUS to code convert automatically +;; This package enables Gnus to code convert automatically ;; accoding to a coding system specified for each news group. -;; Please put the following line in your .emacs: -;; (add-hook 'gnus-startup-hook 'gnus-mule-initialize) ;; If you want to specify some coding system for a specific news ;; group, add the fllowing line in your .emacs: ;; (gnus-mule-add-group "xxx.yyy.zzz" 'some-coding-system) @@ -37,8 +35,7 @@ ;; appropriate coding system for as below: ;; (gnus-mule-add-group "" 'iso-2022-jp) ;; the case for Japanese -(require 'gnus) -(require 'message) +(require 'nntp) (defvar gnus-newsgroup-coding-systems nil "Assoc list of news groups vs corresponding coding systems. @@ -82,6 +79,7 @@ (defvar gnus-mule-article-decoded nil) ;; Coding system for reading articles of the current news group. (defvar gnus-mule-coding-system nil) +;;(make-variable-buffer-local 'gnus-mule-coding-system) (defvar gnus-mule-subject nil) (defvar gnus-mule-decoded-subject nil) (defvar gnus-mule-original-subject nil) @@ -125,35 +123,21 @@ ;; Set `gnus-mule-coding-system' to the coding system articles of the ;; current news group is encoded. This function is set in -;; `gnus-select-group-hook'. +;; `gnus-parse-headers-hook'. (defun gnus-mule-select-coding-system () - (let ((coding-system (gnus-mule-get-coding-system gnus-newsgroup-name))) - (setq gnus-mule-coding-system - (if (and coding-system (coding-system-p (car coding-system))) - (car coding-system))))) + (save-excursion + (set-buffer gnus-summary-buffer) + (let ((coding-system (gnus-mule-get-coding-system gnus-newsgroup-name))) + (setq gnus-mule-coding-system + (if (and coding-system (coding-system-p (car coding-system))) + (car coding-system)))))) ;; Decode the current article. This function is set in -;; `gnus-article-prepare-hook'. +;; `gnus-show-traditional-method'. (defun gnus-mule-decode-article () (gnus-mule-code-convert gnus-mule-coding-system nil) (setq gnus-mule-article-decoded t)) -;; Decode the current summary buffer. This function is set in -;; `gnus-summary-generate-hook'. -;; Made by , -;; coded by . -(defun gnus-mule-decode-summary () - (if gnus-mule-coding-system - (mapcar - (lambda (headers) - (let ((subject (aref headers 1)) - (author (aref headers 2))) - (aset headers 1 - (decode-coding-string subject gnus-mule-coding-system)) - (aset headers 2 - (decode-coding-string author gnus-mule-coding-system)))) - gnus-newsgroup-headers))) - (defun gnus-mule-toggle-article-format () "Toggle decoding/encoding of the current article buffer." (interactive) @@ -200,30 +184,29 @@ (define-key gnus-article-mode-map "z" 'gnus-mule-toggle-article-format) (define-key gnus-summary-mode-map "z" 'gnus-mule-toggle-article-format) ;; Hook definition - (add-hook 'gnus-select-group-hook 'gnus-mule-select-coding-system) - (add-hook 'gnus-summary-generate-hook 'gnus-mule-decode-summary) - (add-hook 'gnus-article-prepare-hook 'gnus-mule-decode-article) + (add-hook 'gnus-parse-headers-hook 'gnus-mule-select-coding-system) (add-hook 'message-send-news-hook 'gnus-mule-message-send-news-function) (add-hook 'message-send-mail-hook 'gnus-mule-message-send-mail-function) - (let ((stream (get-process "nntpd"))) - (if (processp stream) - (set-process-coding-system stream 'no-conversion 'no-conversion)))) + (setq nntp-coding-system-for-read 'binary + nntp-coding-system-for-write 'binary + nnheader-file-coding-system 'binary + nnmail-file-coding-system 'binary) + ) -(gnus-mule-add-group "" 'undecided) +(gnus-mule-add-group "" '(undecided . iso-latin-1)) (gnus-mule-add-group "fj" 'iso-2022-7bit) (gnus-mule-add-group "tnn" 'iso-2022-7bit) (gnus-mule-add-group "japan" 'iso-2022-7bit) (gnus-mule-add-group "pin" 'iso-2022-7bit) +(gnus-mule-add-group "han" 'euc-kr) (gnus-mule-add-group "alt.chinese.text" 'chinese-hz) (gnus-mule-add-group "alt.hk" 'chinese-hz) (gnus-mule-add-group "alt.chinese.text.big5" 'chinese-big5) (gnus-mule-add-group "soc.culture.vietnamese" '(nil . vietnamese-viqr)) (gnus-mule-add-group "relcom" 'cyrillic-koi8) -(add-hook 'gnus-startup-hook 'gnus-mule-initialize) - -(modify-coding-system-alist 'network "nntp" 'no-conversion) +(provide 'gnus-mule) ;; gnus-mule.el ends here