Oort on XEmacs without mule

[Simon Josefsson <jas@extundo.com>]

Simon Josefsson <jas@extundo.com> writes:

> ...and most of Oort Gnus seem to work fine under Emacs 20.7, btw.  I
> have tested a few things and the only problem I could spot was UTF-8
> but that isn't Gnus' fault.

XEmacs 21.4 without mule seems to mostly work (boy is it fast without
mule!), although if I say <!#part charset=utf-8> I get the backtrace
below.  The real problematic code is probably in
mm-charset-to-coding-system:

...
   ;; Running in a non-MULE environment.
   ((null (mm-get-coding-system-list))
    charset)
...

But mm-get-coding-system-list (which is aliased to coding-system-list,
a builtin function) returns:

(us-ascii-mac no-conversion undecided-dos us-ascii-unix binary raw-text-unix no-conversion-mac undecided-unix iso-8859-1 file-name raw-text-mac raw-text us-ascii-dos terminal automatic-conversion ctext no-conversion-dos no-conversion-unix raw-text-dos us-ascii undecided undecided-mac keyboard iso-8859-2)

Which seems correct for a latin-1-only emacs.  Is the patch below the
right thing?  I'm not sure.

Signaling: (void-function coding-system-get)
  (coding-system-get c :mime-charset)
  (or (coding-system-get c :mime-charset) (coding-system-get c (quote mime-charset)))
  (eq charset (or (coding-system-get c :mime-charset) (coding-system-get c ...)))
  (and (null cs) (eq charset (or ... ...)))
  (if (and (null cs) (eq charset ...)) (setq cs c))
  (while --dolist-temp--67516 (setq c (car --dolist-temp--67516)) (if (and ... ...) (setq cs c)) (setq --dolist-temp--67516 (cdr --dolist-temp--67516)))
  (let ((--dolist-temp--67516 ...) c) (while --dolist-temp--67516 (setq c ...) (if ... ...) (setq --dolist-temp--67516 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... c) (while --dolist-temp--67516 ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... c) (while --dolist-temp--67516 ... ... ...) nil))
  (dolist (c (mm-get-coding-system-list)) (if (and ... ...) (setq cs c)))
  (let (cs) (dolist (c ...) (if ... ...)) cs)
  (cond ((null charset) charset) ((null ...) charset) ((eq charset ...) (quote ascii)) ((and ...) charset) ((let ... ...)) ((let ... ... cs)))
  mm-charset-to-coding-system("utf-8")
  mml-generate-mime-1((part (charset . "utf-8") (tag-location . 588) (contents . "XEmacs 21.4 without mule seems to work (boy is it fast without mule!),\nalthough if I say <!#part charset=utf-8> I get a backtrace:\n\n")))
  mml-generate-mime-1((multipart (type . "mixed") (part (type . "text/plain") (contents . "Simon Josefsson <jas@extundo.com> writes:\n\n> ...and most of Oort Gnus seem to work fine under Emacs 20.7, btw.  I\n> have tested a few things and the only problem I could spot was UTF-8\n> but that isn't Gnus' fault.\n\n")) (part (charset . "utf-8") (tag-location . 588) (contents . "XEmacs 21.4 without mule seems to work (boy is it fast without mule!),\nalthough if I say <!#part charset=utf-8> I get a backtrace:\n\n"))))
  mml-generate-mime()
  message-encode-message-body()
  mml-to-mime()
  mml-preview((4))
  call-interactively(mml-preview)

Index: mm-util.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mm-util.el,v
retrieving revision 6.59
diff -u -p -u -w -r6.59 mm-util.el
--- mm-util.el	24 Apr 2003 19:04:05 -0000	6.59
+++ mm-util.el	29 Apr 2003 00:20:31 -0000
@@ -341,7 +341,8 @@ used as the line break code type of the 
    ((null charset)
     charset)
    ;; Running in a non-MULE environment.
-   ((null (mm-get-coding-system-list))
+   ((or (null (mm-get-coding-system-list))
+	(not (fboundp 'coding-system-get)))
     charset)
    ;; ascii
    ((eq charset 'us-ascii)