From fbd98c8c34bf8429e2a902be34fc3993c36c1959 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Mon, 7 Sep 1998 01:31:30 +0000
Subject: [PATCH] 	* lisp/gnus.el (gnus-continuum-version): Use
 `char-int' instead of 	`mm-char-int'. 	*
 lisp/messagexmas.el
 (message-xmas-make-caesar-translation-table): 	Ditto.

	* lisp/gnus-art.el (gnus-article-setup-buffer): Don't use
	`mm-enable-multibyte'.

A snapshot is available from
 ftp://ftp.jpl.org/pub/tmp/semi-gnus-pgnus-ichikawa-19980907-2.tar.gz
---
 ChangeLog           |   10 ++++++++++
 lisp/gnus-art.el    |    1 -
 lisp/gnus.el        |    4 ++--
 lisp/messagexmas.el |    4 ++--
 4 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 02df3eb..6cfffe0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,15 @@
 1998-09-07  Katsumi Yamaoka   <yamaoka@jpl.org>
 
+	* lisp/gnus.el (gnus-continuum-version): Use `char-int' instead of
+	`mm-char-int'.
+	* lisp/messagexmas.el (message-xmas-make-caesar-translation-table):
+	Ditto.
+
+	* lisp/gnus-art.el (gnus-article-setup-buffer): Don't use
+	`mm-enable-multibyte'.
+
+1998-09-07  Katsumi Yamaoka   <yamaoka@jpl.org>
+
 	* lisp/gnus.el (gnus-version-number): Update to 6.10.011.
 
 	* Sync up with Pterodactyl Gnus 0.17.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index b3e2396..817b224 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -1903,7 +1903,6 @@ commands:
     ;; Init original article buffer.
     (save-excursion
       (set-buffer (gnus-get-buffer-create gnus-original-article-buffer))
-      (mm-enable-multibyte)
       (setq major-mode 'gnus-original-article-mode)
       (make-local-variable 'gnus-original-article))
     (if (get-buffer name)
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 5834128..67d581f 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2018,8 +2018,8 @@ If ARG, insert string at point."
 		       "4.99"
 		     (+ 5 (* 0.02
 			     (abs
-			      (- (mm-char-int (aref (downcase alpha) 0))
-				 (mm-char-int ?t))))
+			      (- (char-int (aref (downcase alpha) 0))
+				 (char-int ?t))))
 			-0.01))
 		   minor least)
 	 (format "%d.%02d%02d" major minor least))))))
diff --git a/lisp/messagexmas.el b/lisp/messagexmas.el
index 52619dd..7e3edd3 100644
--- a/lisp/messagexmas.el
+++ b/lisp/messagexmas.el
@@ -100,8 +100,8 @@ If it is non-nil, it must be a toolbar.  The five legal values are
   "Create a rot table with offset N."
   (let ((i -1)
 	(table (make-string 256 0))
-	(a (mm-char-int ?a))
-	(A (mm-char-int ?A)))
+	(a (char-int ?a))
+	(A (char-int ?A)))
     (while (< (incf i) 256)
       (aset table i i))
     (concat
-- 
1.7.10.4