Mercurial > hg > xemacs-beta

comparison lisp/tm/tm-file.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 c0c698873ce1
children
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,1996,1997 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.2 1996/12/28 21:03:14 steve Exp $ 7 ;; Version: $Id: tm-file.el,v 1.3 1997/03/16 03:05:46 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 (let ((coding-system-for-write 'no-conversion) 63 (as-binary-output-file (write-file filename))
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 )
74 (kill-buffer tmp-buf) 64 (kill-buffer tmp-buf)
75 ))) 65 )))
76 66
77 67
78 ;;; @ setup 68 ;;; @ setup