tm 6.10

diff --git a/Makefile b/Makefile
index c7857b1..213a926 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -38,7 +38,7 @@ FILES = tm/README.eng tm/rel-*.ol tm/Makefile tm/Makefile.bc \
        tm/mh-e/Makefile tm/mh-e/Makefile.bc tm/mh-e/*.el \
        tl/README.eng tl/Makefile tl/Makefile.bc tl/*.el tl/doc/*.texi
 
-TARFILE = tm6.09.tar
+TARFILE = tm6.10.tar
 
 
 nemacs:

diff --git a/tm-view.el b/tm-view.el
index 48446b5..2532c65 100644 (file)
--- a/tm-view.el
+++ b/tm-view.el
@@ -20,7 +20,7 @@
 ;;;
 
 (defconst mime-viewer/RCS-ID
-  "$Id: tm-view.el,v 6.9 1995/03/13 19:50:43 morioka Exp $")
+  "$Id: tm-view.el,v 6.10 1995/03/14 12:39:41 morioka Exp $")
 
 (defconst mime-viewer/version (get-version-string mime-viewer/RCS-ID))
 (defconst mime/viewer-version mime-viewer/version)
@@ -648,41 +648,37 @@
          format))
 
 (defun mime/start-external-method-region (beg end cal)
-  (let ((e end))
-    (if (< end (point-max))
-       (setq e (+ end 1))
-      )
-    (save-excursion
-      (save-restriction
-       (narrow-to-region beg e)
-       (goto-char beg)
-       (let ((method (cdr (assoc 'method cal)))
-             (name (mime/get-name cal))
-             )
-         (if method
-             (let ((file (make-temp-name
-                          (expand-file-name "TM" mime/tmp-dir)))
-                   b args)
-               (if (nth 1 method)
-                   (setq b beg)
-                 (search-forward "\n\n" nil t)
-                 (setq b (match-end 0))
-                 )
-               (goto-char b)
-               (write-region b e file)
-               (setq cal (put-alist
-                          'name (replace-as-filename name) cal))
-               (setq cal (put-alist 'file file cal))
-               (setq args (nconc
-                           (list (car method)
-                                 mime/output-buffer-name (car method)
-                                 )
-                           (mime/make-method-args cal (cdr (cdr method)))
-                           ))
-               (apply (function start-process) args)
-               (mime/show-output-buffer)
-               ))))))
-  )
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end)
+      (goto-char beg)
+      (let ((method (cdr (assoc 'method cal)))
+           (name (mime/get-name cal))
+           )
+       (if method
+           (let ((file (make-temp-name
+                        (expand-file-name "TM" mime/tmp-dir)))
+                 b args)
+             (if (nth 1 method)
+                 (setq b beg)
+               (search-forward "\n\n" nil t)
+               (setq b (match-end 0))
+               )
+             (goto-char b)
+             (write-region b end file)
+             (setq cal (put-alist
+                        'name (replace-as-filename name) cal))
+             (setq cal (put-alist 'file file cal))
+             (setq args (nconc
+                         (list (car method)
+                               mime/output-buffer-name (car method)
+                               )
+                         (mime/make-method-args cal (cdr (cdr method)))
+                         ))
+             (apply (function start-process) args)
+             (mime/show-output-buffer)
+             ))
+       ))))
 
 (defun mime/decode-message/partial-region (beg end cal)
   (goto-char beg)