tm 7.38.

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

diff --git a/tm-file.el b/tm-file.el
index 07a2280..ff565ca 100644 (file)
--- a/tm-file.el
+++ b/tm-file.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-file.el,v 7.1 1995/12/15 11:58:29 morioka Exp $
+;;;    $Id: tm-file.el,v 7.2 1995/12/21 18:08:22 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -30,8 +30,12 @@
 (require 'tm-view)
 
 (defun mime-article/extract-file (beg end cal)
-  (let* ((name (or (cdr (assoc "name" cal))
-                  (cdr (assoc "x-name" cal))))
+  (goto-char beg)
+  (let* ((name
+         (save-restriction
+           (narrow-to-region beg end)
+           (mime-article/get-filename cal)
+           ))
         (encoding (cdr (assq 'encoding cal)))
         (filename
           (if name
@@ -49,7 +53,6 @@
         (the-buf (current-buffer))
         (tmp-buf (generate-new-buffer (file-name-nondirectory filename)))
         )
-    (goto-char beg)
     (re-search-forward "\n\n")
     (append-to-buffer tmp-buf (match-end 0) end)
     (save-excursion