From: morioka <morioka>
Date: Fri, 31 Oct 1997 07:48:39 +0000 (+0000)
Subject: From Kazuhiro Ohta <ohta@ele.cst.nihon-u.ac.jp>:
X-Git-Tag: semi-0_115_2~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=05a20faf0709f15b6b8bc09accbdca84e6f96410;p=elisp%2Fsemi.git

From Kazuhiro Ohta <ohta@ele.cst.nihon-u.ac.jp>:
(mime-article::write-region): fixed (cf. [tm-ja:2641])
---

diff --git a/mime-play.el b/mime-play.el
index 37abc88..76e780b 100644
--- a/mime-play.el
+++ b/mime-play.el
@@ -5,7 +5,7 @@
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1995/9/26 (separated from tm-view.el)
 ;;	Renamed: 1997/2/21 from tm-play.el
-;; Version: $Id: mime-play.el,v 0.52 1997-10-03 11:58:17 shuhei-k Exp $
+;; Version: $Id: mime-play.el,v 0.53 1997-10-31 07:48:39 morioka Exp $
 ;; Keywords: MIME, multimedia, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -344,7 +344,7 @@ It is registered to variable `mime-view-quitting-method-alist'."
       (re-search-forward "^$")
       (goto-char (1+ (match-end 0)))
       (setq file (concat root-dir "/" number))
-      (mime-article::write-region (point) (point-max) file)
+      (mime-article::write-region (point) end file)
       (let ((total-file (concat root-dir "/CT")))
 	(setq total
 	      (if total