procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(metamail-region): Don't bind kanji-fileio-code

Browse source 
or file-coding-system.  Don't call define-program-kanji-code
or define-program-coding-system.  Instead, bind coding-system-for-read.
This commit is contained in:
Richard M. Stallman 1997-07-25 05:59:39 +00:00
parent ee371b017d
commit 5ab5daada5
1 changed files with 4 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/mail/metamail.el
View file

@ -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