tm 7.32.

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

diff --git a/tm-parse.el b/tm-parse.el
index 3dbfa3f..f4fc429 100644 (file)
--- a/tm-parse.el
+++ b/tm-parse.el
@@ -6,11 +6,26 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: tm-parse.el,v 6.0 1995/11/15 11:56:10 morioka Exp $
+;;;    $Id: tm-parse.el,v 7.0 1995/12/09 01:56:28 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia
 ;;;
 ;;; This file is part of tm (Tools for MIME).
 ;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 2, or
+;;; (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with This program.  If not, write to the Free Software
+;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;;
+;;; Code:
 
 (require 'tl-822)
 (require 'tl-misc)
@@ -123,7 +138,8 @@ If is is not found, return DEFAULT-ENCODING. [tm-parse.el]"
        )
       (setq children (cons ret children))
       )
-    (mime::content-info/create rcnum beg end ctype params encoding
+    (mime::content-info/create rcnum beg (point-max)
+                              ctype params encoding
                               (reverse children))
     ))