From: Richard M. Stallman Date: Fri, 25 Jul 1997 05:59:39 +0000 (+0000) Subject: (metamail-region): Don't bind kanji-fileio-code X-Git-Tag: emacs-20.1~982 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ab5daada52deee23328438772b14b3f9c150a77;p=emacs.git (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. --- 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