Mercurial > hg > xemacs-beta
diff lisp/tm/tm-file.el @ 70:131b0175ea99 r20-0b30
Import from CVS: tag r20-0b30
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:02:59 +0200 |
| parents | 7e54bd776075 |
| children | c0c698873ce1 |
line wrap: on
line diff
--- a/lisp/tm/tm-file.el Mon Aug 13 09:00:04 2007 +0200 +++ b/lisp/tm/tm-file.el Mon Aug 13 09:02:59 2007 +0200 @@ -1,10 +1,10 @@ ;;; tm-file.el --- tm-view internal method for file extraction -;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. +;; Copyright (C) 1995,1996 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> ;; modified by Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp> -;; Version: $Id: tm-file.el,v 1.4 1997/03/22 05:29:23 steve Exp $ +;; Version: $Id: tm-file.el,v 1.1.1.1 1996/12/18 22:43:37 steve Exp $ ;; Keywords: mail, news, MIME, multimedia, file, extract ;; This file is part of tm (Tools for MIME). @@ -60,7 +60,17 @@ (save-excursion (set-buffer tmp-buf) (mime-decode-region (point-min)(point-max) encoding) - (as-binary-output-file (write-file filename)) + (let ((coding-system-for-write 'no-conversion) + (mc-flag nil) ; for Mule + (file-coding-system + (if (featurep 'mule) *noconv*)) + kanji-flag ; for NEmacs + (emx-binary-mode t) ; for OS/2 + jka-compr-compression-info-list ; for jka-compr + jam-zcat-filename-list ; for jam-zcat + require-final-newline) + (write-file filename) + ) (kill-buffer tmp-buf) )))