tm 7.72.

[elisp/tm.git] / tm-file.el

diff --git a/tm-file.el b/tm-file.el
index ff565ca..105f62b 100644 (file)
--- a/tm-file.el
+++ b/tm-file.el
@@ -2,11 +2,13 @@
 ;;; tm-file.el --- tm-view internal method for file extraction
 ;;;
 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
+;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
+;;; Maintainer: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-file.el,v 7.2 1995/12/21 18:08:22 morioka Exp $
+;;;    $Id: tm-file.el,v 7.6 1996/05/27 07:58:21 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -38,7 +40,7 @@
            ))
         (encoding (cdr (assq 'encoding cal)))
         (filename
-          (if name
+          (if (and name (not (string-equal name "")))
              (expand-file-name name
                                (call-interactively
                                 (function
@@ -53,11 +55,14 @@
         (the-buf (current-buffer))
         (tmp-buf (generate-new-buffer (file-name-nondirectory filename)))
         )
+    (if (file-exists-p filename)
+        (or (yes-or-no-p (format "File %s exists. Save anyway? " filename))
+            (error "")))
     (re-search-forward "\n\n")
     (append-to-buffer tmp-buf (match-end 0) end)
     (save-excursion
       (set-buffer tmp-buf)
-      (mime/decode-region encoding (point-min)(point-max))
+      (mime-decode-region (point-min)(point-max) encoding)
       (let ((mc-flag nil)                   ; for Mule
            (file-coding-system
             (if (featurep 'mule) *noconv*))
@@ -90,3 +95,5 @@
 ;;;
 
 (provide 'tm-file)
+
+;;; end of tm-file.el