* mime-view.el (mime-follow-current-entity): Try to be

compatible with FSF Emacs.

diff --git a/ChangeLog b/ChangeLog
index 3694179..cf41305 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-02-15  Yoshiki Hayashi  <yoshiki@xemacs.org>
+
+       * mime-view.el (mime-follow-current-entity): Try to be
+       compatible with FSF Emacs.
+
 2000-02-14  Yoshiki Hayashi  <yoshiki@xemacs.org>
 
        * EMY 1.13.3 is released.

diff --git a/mime-view.el b/mime-view.el
index d42191a..28f2c23 100644 (file)
--- a/mime-view.el
+++ b/mime-view.el
@@ -1517,8 +1517,13 @@ It calls following-method selected from variable
        (erase-buffer)
        (unless header-exists
          (insert ?\n))
-       (insert (buffer-substring-no-properties (car position)
-                                               (cdr position) the-buf))
+       ;; Compatibility kludge.
+       ;; FSF Emacs can only take substring of current-buffer.
+       (insert
+        (save-excursion
+          (set-buffer the-buf)
+          (buffer-substring-no-properties (car position)
+                                          (cdr position))))
        (goto-char (point-min))
        (let ((current-entity
               (if (and (eq (mime-entity-media-type entity) 'message)