* 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

diff --git a/ChangeLog b/ChangeLog
index 02df3eb..6cfffe0 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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