Mercurial > emacs
changeset 18964:10af35406220
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 25 Jul 1997 05:59:39 +0000 |
| parents | f0f6d5dc8e09 |
| children | 7b3efca4f455 |
| files | lisp/mail/metamail.el |
| diffstat | 1 files changed, 4 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/metamail.el Fri Jul 25 05:37:34 1997 +0000 +++ b/lisp/mail/metamail.el Fri Jul 25 05:59:39 1997 +0000 @@ -3,7 +3,7 @@ ;; Copyright (C) 1993, 1996 Masanobu UMEDA ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> -;; 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 @@ (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 @@ ;; 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