From 5ab5daada52deee23328438772b14b3f9c150a77 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 25 Jul 1997 05:59:39 +0000 Subject: [PATCH] (metamail-region): Don't bind kanji-fileio-code or file-coding-system. Don't call define-program-kanji-code or define-program-coding-system. Instead, bind coding-system-for-read. --- lisp/mail/metamail.el | 15 ++++----------- 1 file changed, 4 insertions(+), 11 deletions(-) diff --git a/lisp/mail/metamail.el b/lisp/mail/metamail.el index c72cef5d6a5..d838762fdc7 100644 --- a/lisp/mail/metamail.el +++ b/lisp/mail/metamail.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1993, 1996 Masanobu UMEDA ;; Author: Masanobu UMEDA -;; Version: $Id: metamail.el,v 1.6 1997/05/05 05:45:46 eggert Exp rms $ +;; Version: $Id: metamail.el,v 1.7 1997/05/05 11:51:44 rms Exp rms $ ;; Keywords: mail, news, mime, multimedia ;; This file is part of GNU Emacs. @@ -170,10 +170,7 @@ redisplayed as output is inserted." (save-excursion ;; Gee! Metamail does not ouput to stdout if input comes from ;; stdin. - (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*))) + (let ((selective-display nil)) ;Disable ^M to nl translation. (write-region beg end metafile nil 'nomessage)) (if buffer (set-buffer buffer)) @@ -187,12 +184,8 @@ redisplayed as output is inserted." ;; to pass such information directly. (let ((process-environment (append process-environment - metamail-environment option-environment))) - ;; Specify character coding system. - (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*)) + metamail-environment option-environment)) + (coding-system-for-read 'undecided)) (apply (function call-process) metamail-program-name nil -- 2.39.5