diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-25 05:59:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-25 05:59:39 +0000 |
| commit | 5ab5daada52deee23328438772b14b3f9c150a77 (patch) | |
| tree | 6eaedcc5427cf48abfef5f87f84374c6e2c0408c /lisp/mail/metamail.el | |
| parent | ee371b017d3a67e08e2cf5740ad32ba0e7c434c3 (diff) | |
| download | emacs-5ab5daada52deee23328438772b14b3f9c150a77.tar.gz | |
(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.
Diffstat (limited to 'lisp/mail/metamail.el')
| -rw-r--r-- | lisp/mail/metamail.el | 15 |
1 files 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 <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 @@ 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 |