changeset 17757:f008897b73f0

(gnus-mule-message-send-news-function): New function to encode text before sending by news. (gnus-mule-message-send-mail-function): New function to encode text before sending by mail. (gnus-mule-initialize): Add gnus-mule-message-send-news-function to the hook message-send-news-hook. Add gnus-mule-message-send-mail-function to the hook message-send-mail-hook.

--- a/lisp/gnus/gnus-mule.el	Mon May 12 06:56:21 1997 +0000
+++ b/lisp/gnus/gnus-mule.el	Mon May 12 06:56:21 1997 +0000
@@ -31,15 +31,23 @@
 ;; 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)
-;;
-;; Decoding of summary buffer is not yet implemented.
+
+;; By default, only few news groups are registered as the target of
+;; code conversion.  So, each regional users had better set an
+;; appropriate coding system for as below:
+;;	(gnus-mule-add-group "" 'iso-2022-jp)  ;; the case for Japanese
 
 (require 'gnus)
+(require 'message)
 
 (defvar gnus-newsgroup-coding-systems nil
   "Assoc list of news groups vs corresponding coding systems.
-Each element is a list of news group name and cons of coding systems
-for reading and posting.")
+Each element is has the form (PATTERN CODING-FOR-READ . CODING-FOR-POST),
+where,
+PATTERN is a regular expression matching news group names,
+CODING-FOR-READ is a coding system of articles of the news groups, and
+CODING-FOR-POST is a coding system to be encoded for posting articles
+to the news groups.")
 
 ;;;###autoload
 (defun gnus-mule-add-group (name coding-system)
@@ -72,7 +80,7 @@
 
 ;; Flag to indicate if article buffer is already decoded or not.")
 (defvar gnus-mule-article-decoded nil)
-;; Codingsystem for reading articles of the current news group.
+;; Coding system for reading articles of the current news group.
 (defvar gnus-mule-coding-system nil)
 (defvar gnus-mule-subject nil)
 (defvar gnus-mule-decoded-subject nil)
@@ -160,6 +168,31 @@
 	    (setq gnus-mule-article-decoded (not gnus-mule-article-decoded))
 	    (set-buffer-modified-p modif))))))
 
+;; Encode a news article before sending it.
+(defun gnus-mule-message-send-news-function ()
+  (let ((groups (message-fetch-field "newsgroups"))
+	(idx 0)
+	coding-system coding-system-list group-list)
+    (if (not groups)
+	;; We are not sending the current buffer via news.
+	nil
+      (while (string-match "[^ ,]+" groups idx)
+	(setq idx (match-end 0))
+	(setq coding-system
+	      (cdr (gnus-mule-get-coding-system
+		    (substring groups (match-beginning 0) idx))))
+	(if (not (memq coding-system coding-system-list))
+	    (setq coding-system-list (cons coding-system coding-system-list))))
+      (if (> (length coding-system-list) 1)
+	  (setq coding-system (read-coding-system "Coding system: ")))
+      (if coding-system
+	  (encode-coding-region (point-min) (point-max) coding-system)))))
+
+;; Encode a mail message before sending it.
+(defun gnus-mule-message-send-mail-function ()
+  (if sendmail-coding-system
+      (encode-coding-region (point-min) (point-max) sendmail-coding-system)))
+
 ;;;###autoload
 (defun gnus-mule-initialize ()
   "Do several settings for GNUS to enable automatic code conversion."
@@ -169,15 +202,14 @@
   ;; 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-article-prepare-hook 'gnus-mule-decode-article)
+  (add-hook 'message-send-news-hook
+	    'gnus-mule-message-send-news-function)
+  (add-hook 'message-send-mail-hook
+	    'gnus-mule-message-send-mail-function))
 
-(gnus-mule-add-group "" 'iso-2022-7) ;; default coding system
-(gnus-mule-add-group "alt" 'no-conversion)
-(gnus-mule-add-group "comp" 'no-conversion)
-(gnus-mule-add-group "gnu" 'no-conversion)
-(gnus-mule-add-group "rec" 'no-conversion)
-(gnus-mule-add-group "sci" 'no-conversion)
-(gnus-mule-add-group "soc" 'no-conversion)
+(gnus-mule-add-group "" 'automatic-conversion)
+(gnus-mule-add-group "fj" 'iso-2022-7)
 (gnus-mule-add-group "alt.chinese.text" 'hz-gb-2312)
 (gnus-mule-add-group "alt.hk" 'hz-gb-2312)
 (gnus-mule-add-group "alt.chinese.text.big5" 'cn-big5)