From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/51931 Path: main.gmane.org!not-for-mail From: Simon Josefsson Newsgroups: gmane.emacs.gnus.general Subject: Oort on XEmacs without mule Date: Tue, 29 Apr 2003 02:13:28 +0200 Sender: ding-owner@lists.math.uh.edu Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1051575190 26476 80.91.224.249 (29 Apr 2003 00:13:10 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 29 Apr 2003 00:13:10 +0000 (UTC) Original-X-From: ding-owner+M474@lists.math.uh.edu Tue Apr 29 02:13:09 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19AIk9-0006su-00 for ; Tue, 29 Apr 2003 02:13:09 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19AIkg-0003t1-00; Mon, 28 Apr 2003 19:13:42 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19AIkY-0003sv-00 for ding@lists.math.uh.edu; Mon, 28 Apr 2003 19:13:34 -0500 Original-Received: (qmail 62145 invoked by alias); 29 Apr 2003 00:13:33 -0000 Original-Received: (qmail 62140 invoked from network); 29 Apr 2003 00:13:33 -0000 Original-Received: from 178.230.13.217.in-addr.dgcsystems.net (HELO yxa.extundo.com) (217.13.230.178) by sclp3.sclp.com with SMTP; 29 Apr 2003 00:13:33 -0000 Original-Received: from latte.josefsson.org (yxa.extundo.com [217.13.230.178]) (authenticated bits=0) by yxa.extundo.com (8.12.9/8.12.9) with ESMTP id h3T0DSbU005635 (version=TLSv1/SSLv3 cipher=EDH-RSA-DES-CBC3-SHA bits=168 verify=OK) for ; Tue, 29 Apr 2003 02:13:29 +0200 Original-To: ding@gnus.org Mail-Copies-To: nobody X-Payment: hashcash 1.2 0:030429:ding@gnus.org:9d8f743bb17577f3 X-Hashcash: 0:030429:ding@gnus.org:9d8f743bb17577f3 In-Reply-To: (Simon Josefsson's message of "Sun, 27 Apr 2003 17:29:17 +0200") User-Agent: Gnus/5.09002 (Oort Gnus v0.20) XEmacs/21.4 (Portable Code, linux) Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:51931 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:51931 Simon Josefsson 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 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 I get a backtrace:\n\n"))) mml-generate-mime-1((multipart (type . "mixed") (part (type . "text/plain") (contents . "Simon Josefsson 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 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)