From xemacs-m  Tue Feb  4 14:46:21 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id OAA08118
	for <xemacs-beta@xemacs.org>; Tue, 4 Feb 1997 14:46:20 -0600 (CST)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id MAA17857;
	Tue, 4 Feb 1997 12:57:28 -0800
To: xemacs-beta@xemacs.org
Subject: Re: Gnus+mime problem in XEmacs 20.0
References: <199702041920.EAA12643@mikan.jaist.ac.jp> <199702042032.PAA07509@mickey.npac.syr.edu>
X-Url: http://www.miranova.com/%7Esteve/
Mail-Copies-To: never
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: Remigiusz Trzaska's message of Tue, 4 Feb 1997 15:32:00 -0500
Mime-Version: 1.0 (generated by tm-edit 7.101)
Content-Type: text/plain; charset=US-ASCII
Date: 04 Feb 1997 12:57:26 -0800
Message-ID: <m2pvygz3ux.fsf@altair.xemacs.org>
Lines: 48
X-Mailer: Gnus v5.4.11/XEmacs 20.0

Remigiusz Trzaska writes:

> The patch Steven sent DOES change the situation. Now I get 

> Symbol's function definition is void: define-program-coding-system
> Loading metamail...done
> Loading metamail...

> when trying to display mime message :-((

O.K.  Try this.  This patch is based on the original metamail.el
(now named metamail.el.orig after you applied the first patch).

Index: metamail.el
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lisp/packages/metamail.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 metamail.el
--- metamail.el	1996/12/18 22:42:53	1.1.1.1
+++ metamail.el	1997/02/04 20:55:02
@@ -166,7 +166,7 @@
       (let ((selective-display nil)    ;Disable ^M to nl translation.
 	    (kanji-fileio-code 2)       ;Write in JIS code when nemacs.
 	    (file-coding-system         ;Write in JUNET style when mule.
-	     (if (featurep 'mule) *junet*)))
+	     (if (featurep 'mule) 'junet)))
 	(write-region beg end metafile nil 'nomessage))
       (if buffer
 	  (set-buffer buffer))
@@ -185,7 +185,13 @@
 	(if (boundp 'NEMACS)
 	    (define-program-kanji-code nil metamail-program-name 2)) ;JIS
 	(if (featurep 'mule)
-	    (define-program-coding-system nil metamail-program-name *junet*))
+	    (if (fboundp 'define-program-coding-system)
+		(define-program-coding-system
+		  nil
+		  metamail-program-name
+		  'junet)
+	      ;; XEmacs with MULE
+	      (setq file-coding-system 'junet)))
 	(apply (function call-process)
 	       metamail-program-name
 	       nil

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

