Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-file.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 7e54bd776075
children c0c698873ce1
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;;; tm-file.el --- tm-view internal method for file extraction 1 ;;; tm-file.el --- tm-view internal method for file extraction
2 2
3 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
4 4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp> 5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; modified by Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp> 6 ;; modified by Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
7 ;; Version: $Id: tm-file.el,v 1.4 1997/03/22 05:29:23 steve Exp $ 7 ;; Version: $Id: tm-file.el,v 1.1.1.1 1996/12/18 22:43:37 steve Exp $
8 ;; Keywords: mail, news, MIME, multimedia, file, extract 8 ;; Keywords: mail, news, MIME, multimedia, file, extract
9 9
10 ;; This file is part of tm (Tools for MIME). 10 ;; This file is part of tm (Tools for MIME).
11 11
12 ;; This program is free software; you can redistribute it and/or 12 ;; This program is free software; you can redistribute it and/or
58 (re-search-forward "\n\n") 58 (re-search-forward "\n\n")
59 (append-to-buffer tmp-buf (match-end 0) end) 59 (append-to-buffer tmp-buf (match-end 0) end)
60 (save-excursion 60 (save-excursion
61 (set-buffer tmp-buf) 61 (set-buffer tmp-buf)
62 (mime-decode-region (point-min)(point-max) encoding) 62 (mime-decode-region (point-min)(point-max) encoding)
63 (as-binary-output-file (write-file filename)) 63 (let ((coding-system-for-write 'no-conversion)
64 (mc-flag nil) ; for Mule
65 (file-coding-system
66 (if (featurep 'mule) *noconv*))
67 kanji-flag ; for NEmacs
68 (emx-binary-mode t) ; for OS/2
69 jka-compr-compression-info-list ; for jka-compr
70 jam-zcat-filename-list ; for jam-zcat
71 require-final-newline)
72 (write-file filename)
73 )
64 (kill-buffer tmp-buf) 74 (kill-buffer tmp-buf)
65 ))) 75 )))
66 76
67 77
68 ;;; @ setup 78 ;;; @ setup