From e6cdbc69d536bfcafd9c75a9f3144b52f451f250 Mon Sep 17 00:00:00 2001
From: hayashi <hayashi>
Date: Fri, 11 Feb 2000 07:14:03 +0000
Subject: [PATCH] Use $(MAKINFO)

---
 ChangeLog    |    4 ++++
 Makefile     |    3 ++-
 mime-view.el |    5 +++--
 semi-def.el  |    2 +-
 4 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 3bb7ef9..d8b2d60 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-02-11  Yoshiki Hayashi  <yoshiki@xemacs.org>
+
+	* Makefile (MAKEINFO): New variable.
+
 2000-02-09  Yoshiki Hayashi  <yoshiki@xemacs.org>
 
 	* Makefile (distclean): New target.
diff --git a/Makefile b/Makefile
index 9b89eaa..ea51d60 100644
--- a/Makefile
+++ b/Makefile
@@ -19,6 +19,7 @@ FLAGS   = $(VANILLA) -l SEMI-MK
 TEXINFMT = $(VANILLA) -l texinfmt
 TEXIF = -f texinfo-format-buffer -f save-buffer
 
+MAKEINFO = makeinfo
 PREFIX	= NONE
 LISPDIR = NONE
 PACKAGEDIR = NONE
@@ -54,7 +55,7 @@ install-package:	package
 info: emy.info
 
 %.info: %.texi
-	makeinfo -o $@ $<
+	$(MAKEINFO) -o $@ $<
 
 texinfmt: emy.texi
 	$(EMACS) $(TEXINFMT) emy.texi $(TEXIF)
diff --git a/mime-view.el b/mime-view.el
index d6dfad4..5b579ff 100644
--- a/mime-view.el
+++ b/mime-view.el
@@ -1508,7 +1508,8 @@ It calls following-method selected from variable
 	(save-excursion
 	  (set-buffer (setq new-buf (get-buffer-create new-name)))
 	  (erase-buffer)
-	  (insert-buffer-substring the-buf ph-end p-end)
+	  ;; #### ???
+	  (insert (buffer-substring-no-properties ph-end p-end the-buf))
 	  (when (= ph-end p-beg)
 	    (goto-char (point-min))
 	    (insert ?\n))
@@ -1516,7 +1517,7 @@ It calls following-method selected from variable
           (let ((current-entity
 		 (if (and (eq (mime-entity-media-type entity) 'message)
 			  (eq (mime-entity-media-subtype entity) 'rfc822))
-		     (mime-entity-children entity)
+		     (car (mime-entity-children entity))
 		   entity))
 		str)
 	    (while (and current-entity
diff --git a/semi-def.el b/semi-def.el
index ac9aece..5a836c0 100644
--- a/semi-def.el
+++ b/semi-def.el
@@ -30,7 +30,7 @@
 
 (require 'custom)
 
-(defconst mime-user-interface-product ["EMY" (1 13 2) "Better late than never"]
+(defconst mime-user-interface-product ["EMY" (1 13 3) "To err is human"]
   "Product name, version number and code name of MIME-kernel package.")
 
 (autoload 'mule-caesar-region "mule-caesar"
-- 
1.7.10.4