From: morioka <morioka>
Date: Mon, 2 Mar 1998 14:17:45 +0000 (+0000)
Subject: tm 6.10
X-Git-Tag: tm6_10~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a03cfa14c581703129fe470b10952f41844f2695;p=elisp%2Ftm.git

tm 6.10
---

diff --git a/Makefile b/Makefile
index c7857b1..213a926 100644
--- 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
--- 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)