From: tsuchiya <tsuchiya>
Date: Thu, 12 Sep 2002 08:34:39 +0000 (+0000)
Subject: (toplevel) [XEmacs]: Define `emacs-mule' coding
X-Git-Tag: t-gnus-6_15_8-04-quimby~45
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bea51dfdc1720d284e69ddfe8a5fa0cf7e9256ac;p=elisp%2Fgnus.git-

(toplevel) [XEmacs]: Define `emacs-mule' coding
system in order to cancel difference on coding systems of
auto-saved files between FSF Emacs and XEmacs.
(nnheader-auto-save-coding-system) [Mule]: The default value of
Mule2 is changed from `*junet*' to `*internal*', in order to unify
coding system of files auto-saved by Mule2.
---

diff --git a/ChangeLog b/ChangeLog
index 0d4896f..e2bde96 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,9 +1,18 @@
+2002-09-12  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
+
+	* lisp/nnheader.el (toplevel) [XEmacs]: Define `emacs-mule' coding
+	system in order to cancel difference on coding systems of
+	auto-saved files between FSF Emacs and XEmacs.
+	(nnheader-auto-save-coding-system) [Mule]: The default value of
+	Mule2 is changed from `*junet*' to `*internal*', in order to unify
+	coding system of files auto-saved by Mule2.
+
 2002-09-08  Daiki Ueno  <ueno@unixuser.org>
 
 	* lisp/gnus-msg.el (gnus-configure-posting-styles): Follow the
 	change of arglist of gnus-configure-posting-style.
 	(gnus-configure-posting-style): Check circular import.
-	
+
 2002-09-08  Daiki Ueno  <ueno@unixuser.org>
 
 	* lisp/gnus-vers.el (gnus-revision-number): Increment to 03.
@@ -27,7 +36,7 @@
 	(gnus-configure-posting-styles): Expand named entries in
 	gnus-posting-styles.
 	(gnus-summary-execute-command-with-posting-style): New command.
-	
+
 2002-09-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/gnus-vers.el (gnus-revision-number): Increment to 01.
diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index e9fc870..7f271f8 100644
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -108,9 +108,27 @@ This variable is a substitute for `mm-text-coding-system'.")
   "Text coding system for write.
 This variable is a substitute for `mm-text-coding-system-for-write'.")
 
+;; Define `emacs-mule' coding system for XEmacs.
+(and
+ (featurep 'xemacs)
+ (featurep 'mule)
+ (not (find-coding-system 'emacs-mule))
+ (let ((ccl (if (fboundp 'ccl-compile-write-multibyte-character)
+		'(1
+		  (loop
+		   (read-multibyte-character r0 r1)
+		   (write-multibyte-character r0 r1)
+		   (repeat)))
+	      '(1 (loop (read r0) (write-repeat r0))))))
+   (define-ccl-program emacs-mule-codec ccl)
+   (make-coding-system 'emacs-mule 'ccl
+		       "FSF Emacs internal format used in buffer and string."
+		       '(decode emacs-mule-codec
+			 encode emacs-mule-codec))))
+
 (defvar nnheader-auto-save-coding-system
   (cond
-   ((boundp 'MULE) '*junet*)
+   ((boundp 'MULE) '*internal*)
    ((not (fboundp 'find-coding-system)) nil)
    ((find-coding-system 'emacs-mule)
     (if (memq system-type '(windows-nt ms-dos ms-windows))