Mercurial > hg > xemacs-beta

comparison lisp/packages/metamail.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 1040fe1366ac
children 538048ae2ab8
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
1 ;;; metamail.el --- Metamail interface for GNU Emacs 1 ;;; metamail.el --- Metamail interface for GNU Emacs
2 2
3 ;; Copyright (C) 1993, 1996 Masanobu UMEDA 3 ;; Copyright (C) 1993, 1996 Masanobu UMEDA
4 4
5 ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> 5 ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp>
6 ;; Version: $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/packages/Attic/metamail.el,v 1.2 1997/02/06 02:08:35 steve Exp $ 6 ;; Version: $Header: /afs/informatik.uni-tuebingen.de/local/web/xemacs/xemacs-cvs/XEmacs/xemacs/lisp/packages/Attic/metamail.el,v 1.3 1997/03/16 03:05:29 steve Exp $
7 ;; Keywords: mail, news, mime, multimedia 7 ;; Keywords: mail, news, mime, multimedia
8 8
9 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
10 10
11 ;; XEmacs is free software; you can redistribute it and/or modify it 11 ;; XEmacs is free software; you can redistribute it and/or modify it
161 (list (concat "EMACS_VIEW_MODE=" 161 (list (concat "EMACS_VIEW_MODE="
162 (if (numberp viewmode) viewmode 1))))) 162 (if (numberp viewmode) viewmode 1)))))
163 (save-excursion 163 (save-excursion
164 ;; Gee! Metamail does not ouput to stdout if input comes from 164 ;; Gee! Metamail does not ouput to stdout if input comes from
165 ;; stdin. 165 ;; stdin.
166 (let ((selective-display nil) ;Disable ^M to nl translation. 166 (let ((selective-display nil) ;Disable ^M to nl translation.
167 (kanji-fileio-code 2) ;Write in JIS code when nemacs. 167 (kanji-fileio-code 2) ;Write in JIS code when nemacs.
168 (file-coding-system ;Write in JUNET style when mule. 168 (file-coding-system ;Write in JUNET style when mule.
169 (if (featurep 'mule) 'junet))) 169 (if (featurep 'mule) '*junet*))
170 (coding-system-for-write ;Write in iso-2022-jp style
171 'iso-2022-jp) ; when XEmacs/mule
172 )
170 (write-region beg end metafile nil 'nomessage)) 173 (write-region beg end metafile nil 'nomessage))
171 (if buffer 174 (if buffer
172 (set-buffer buffer)) 175 (set-buffer buffer))
173 (setq buffer-read-only nil) 176 (setq buffer-read-only nil)
174 ;; Clear destination buffer. 177 ;; Clear destination buffer.
189 (define-program-coding-system 192 (define-program-coding-system
190 nil 193 nil
191 metamail-program-name 194 metamail-program-name
192 'junet) 195 'junet)
193 ;; XEmacs with MULE 196 ;; XEmacs with MULE
194 (setq file-coding-system 'junet))) 197 (setq buffer-file-coding-system 'junet)))
195 (apply (function call-process) 198 (apply (function call-process)
196 metamail-program-name 199 metamail-program-name
197 nil 200 nil
198 t ;Output to current buffer 201 t ;Output to current buffer
199 (not nodisplay) ;Force redisplay 202 (not nodisplay) ;Force redisplay