From: hayashi <hayashi>
Date: Tue, 15 Feb 2000 04:02:39 +0000 (+0000)
Subject: * mime-view.el (mime-follow-current-entity): Try to be
X-Git-Tag: emy-1_13_4~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a3e0ec92c00defd34e9cb06459669cb855d0818e;p=elisp%2Fsemi.git

* mime-view.el (mime-follow-current-entity): Try to be
compatible with FSF Emacs.
---

diff --git a/ChangeLog b/ChangeLog
index 3694179..cf41305 100644
--- 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
--- 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)