From: morioka <morioka>
Date: Tue, 10 Mar 1998 13:10:18 +0000 (+0000)
Subject: tm 7.103.2.
X-Git-Tag: tm-7_103_2~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=294ba7d1b0ac06274a8c698aba12ec0d0ed63e40;p=elisp%2Ftm.git

tm 7.103.2.
---

diff --git a/ChangeLog b/ChangeLog
index 0152aee..a9214f7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+1997-02-04  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tm: Version 7.103.2 was released.
+	* tm-vm: Version 8.5 was released.
+
+Tue Feb  4 11:04:07 1997  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tm-play.el (mime-article/decode-message/partial): fixed.
+
+
 1997-02-03  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* MU: Version 0.39.3 was released.
diff --git a/Makefile b/Makefile
index f8cc96d..dc63754 100644
--- a/Makefile
+++ b/Makefile
@@ -2,7 +2,7 @@
 # $Id: Makefile,v 7.45 1997/01/10 15:42:29 morioka Exp morioka $
 #
 
-VERSION = 7.103.1
+VERSION = 7.103.2
 
 SHELL	= /bin/sh
 MAKE	= make
diff --git a/tm-play.el b/tm-play.el
index d901e00..dc85793 100644
--- a/tm-play.el
+++ b/tm-play.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
-;; Version: $Id: tm-play.el,v 7.39 1997/02/01 17:54:51 morioka Exp $
+;; Version: $Id: tm-play.el,v 7.40 1997/02/04 11:04:07 morioka Exp $
 ;; Keywords: mail, news, MIME, multimedia
 
 ;; This file is part of tm (Tools for MIME).
@@ -355,10 +355,11 @@
 		  (progn
 		    (or (file-exists-p total-file)
 			(save-excursion
-			  (set-buffer (find-file-noselect total-file))
+			  (set-buffer
+			   (get-buffer-create mime/temp-buffer-name))
 			  (erase-buffer)
 			  (insert total)
-			  (save-buffer)
+			  (write-file total-file)
 			  (kill-buffer (current-buffer))
 			  ))
 		    (string-to-number total)
@@ -366,13 +367,14 @@
 		(and (file-exists-p total-file)
 		     (save-excursion
 		       (set-buffer (find-file-noselect total-file))
-		       (and (re-search-forward "[0-9]+" nil t)
-			    (string-to-number
-			     (buffer-substring (match-beginning 0)
-					       (match-end 0)))
-			    )
-		       (kill-buffer (current-buffer))
-		       ))
+		       (prog1
+			   (and (re-search-forward "[0-9]+" nil t)
+				(string-to-number
+				 (buffer-substring (match-beginning 0)
+						   (match-end 0)))
+				)
+			 (kill-buffer (current-buffer))
+			 )))
 		)))
       (if (and total (> total 0))
 	  (catch 'tag
@@ -383,9 +385,9 @@
 		(let ((i 1))
 		  (while (<= i total)
 		    (setq file (concat root-dir "/" (int-to-string i)))
-		    (if (not (file-exists-p file))
+		    (or (file-exists-p file)
 			(throw 'tag nil)
-		      )
+			)
 		    (as-binary-input-file (insert-file-contents file))
 		    (goto-char (point-max))
 		    (setq i (1+ i))