Use $(MAKINFO)

diff --git a/ChangeLog b/ChangeLog
index 3bb7ef9..d8b2d60 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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"